YNU_JEUS/app_home/himed/webapps/lis/plgycsteslidmngtweb/xrw/SMLPB00100_Cassette슬라이드제작.xrw

<?xml version="1.0" encoding="EUC-KR"?>
<!--
	* 제    목		: SMLPB00100_Cassette슬라이드발행.xrw
	* 설    명		: Cassette/슬라이드발행 화면
	* 설 계 자		: (주)에이씨케이 - 유동철
	* 작 성 자		: (주)에이씨케이 - 유동철
	* 작 성 일		: 2007.08.11
	* 수정이력		: 
	* 기    타		: 
-->
<?xml-stylesheet type="text/css" href="../../../com/commonweb/css/common.css" ?>
<xhtml:html xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.w3.org/2002/01/xforms" xmlns:ev="http://www.w3.org/2001/xml-events">
	<xhtml:head>
		<xhtml:title>Cassette/슬라이드발행</xhtml:title>
		<model id="model1">
			<instance id="instance1">
				<root xmlns="">
					<main>
						<acptspc>
							<acptspclist>
								<instcd/>
								<ptno/>
								<dispptno/>
								<spcacptdd/>
								<spcacptno/>
								<pid/>
								<patnm/>
								<acptdd/>
								<spccd/>
								<spcnm>
								</spcnm>
								<spcacptseqno/>
								<testnmlist>
								</testnmlist>
								<acptno/>
							</acptspclist>
						</acptspc>
						<csteinfo>
							<cstelist>
								<choi/>
								<instcd/>
								<ptno/>
								<spcacptdd/>
								<spcacptno/>
								<spcacptseqno/>
								<csteno/>
								<slidcnt/>
								<cstekindcd/>
								<cstecnts/>
								<tisscnt/>
								<hopper/>
								<statsinclflagcd/>
								<acptdd/>
								<acptno/>
								<testcd/>
								<acptitemno/>
								<reprnt/>
								<statflagcd/>
								<scrno/>
								<spccd/>
								<slidno/>
								<dispptno/>
							</cstelist>
						</csteinfo>
						<slidinfo>
							<slidlist>
								<instcd/>
								<ptno/>
								<spcacptdd/>
								<spcacptno/>
								<spcacptseqno/>
								<csteno/>
								<slidno/>
								<cstekindcd/>
								<cstecnts/>
								<statsinclflagcd/>
								<tisscnt/>
								<acptdd/>
								<acptno/>
								<testcd/>
								<acptitemno/>
								<reprnt/>
								<statflagcd/>
								<scrno/>
								<spccd/>
								<dispptno/>
								<relaptno/>
								<reladispptno/>
								<prtnblocnm/>
							</slidlist>
						</slidinfo>
					</main>
					<send/>
					<init>
						<ptnocode/>
						<fromyear/>
						<fromptno/>
						<toyear/>
						<toptno/>
						<blockind/>
						<hospenv>
							<hospenvinfo>
								<instcd/>
								<lendrtnterm/>
								<recvqualmthdcd/>
								<plgydeptcd/>
								<plgyteamcd/>
								<doctjobgradcd/>
								<teamjobgradcd/>
								<csteeqmtip/>
								<csteeqmtport/>
								<slideqmtip/>
								<slideqmtport/>
							</hospenvinfo>
						</hospenv>
						<sysdt>
							<sysdtinfo>
								<sysdd/>
								<systm/>
							</sysdtinfo>
						</sysdt>
						<resncd>
							<resncdlist>
								<instcd/>
								<baseflagcd/>
								<resncd/>
								<resncnts/>
							</resncdlist>
						</resncd>
						<relatestnm>
							<relatestnmlist>
								<instcd/>
								<pid/>
								<ptno/>
								<dispptno/>
								<acptdd/>
								<acptno/>
								<testcd/>
								<acptitemno/>
								<testnm/>
							</relatestnmlist>
						</relatestnm>
						<ptnocd>
							<ptnocdlist>
								<instcd/>
								<ptnocd/>
								<ptnonm/>
							</ptnocdlist>
						</ptnocd>
						<eqcaseqno/>
						<eqslidseqno/>
						<popupmenu>
							<item>
								<name>블록 삭제</name>
								<func>fDelCaList</func>
							</item>
							<item2>
								<name>슬라이드 삭제</name>
								<func>fDelSlidList</func>
							</item2>
						</popupmenu>
					</init>
					<hidden>
						<acptfromdd/>
						<acpttodd/>
						<seameth>0</seameth>
						<seaval/>
						<prtmeth>0</prtmeth>
						<slideqmtflag>0</slideqmtflag>
						<cstecnt>1</cstecnt>
						<slidcnt>1</slidcnt>
					</hidden>
				</root>
			</instance>
			<script type="javascript" ev:event="xforms-ready">
				<![CDATA[
					fExeInitialize();
				]]>
			</script>
			<submission id="TRLPZ00101" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/init/hospenv/hospenvinfo"/>
			<submission id="TRLPZ00102" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/init/sysdt/sysdtinfo"/>
			<submission id="TRLPZ00103" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/init/resncd/resncdlist"/>
			<submission id="TRLPZ00109" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/init/ptnocd/ptnocdlist"/>
			<submission id="TRLPB00101" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/main/acptspc/acptspclist"/>
			<submission id="TRLPB00102" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/main/csteinfo/cstelist"/>
			<submission id="TRLPB00103" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/main/slidinfo/slidlist"/>
			<submission id="TRLPZ00110" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/init/relatestnm/relatestnmlist"/>
			<submission id="TXLPB00101" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/message"/>
			<submission id="TRLPC01802" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/main/eqinfo"/>
		</model>
		<script type="javascript" src="../../../com/commonweb/js/common.js"/>
		<script type="javascript" src="../../../com/commonweb/js/tfHelper.js"/>
		<script type="javascript" src="../../../com/commonweb/js/stringHelper.js"/>
		<script type="javascript" src="../../../lis/commonweb/js/LPZ001.js"/>
		<script type="javascript">
			<![CDATA[
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.11 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 초기화 Function
				*/
				function fExeInitialize() {
					
					var sCurDate = "";
					
					//--------------------------------
					model.removeNodeset("/root/send");
					model.makeValue("/root/send/instcd", getUserInfo("dutplceinstcd"));
					submit("TRLPZ00101", false);
					submit("TRLPZ00102", false);
					submit("TRLPZ00109", false);
					
					//블록 장비 조회
					model.makeValue("/root/send/instcd",	           getUserInfo("dutplceinstcd"));	//instcd
					model.makeValue("/root/send/seaflagcd", "0");   //"0:전체, 1:카세트, 2:슬라이드"
					submit("TRLPC01802");
					cmb_slideqlist.select(0);
					cmb_caeqlist.select(0);
					
					//------------------------------------------------------------
					sCurDate = model.getValue("/root/init/sysdt/sysdtinfo/sysdd");
					
					//------------
					// 초기값 설정
					model.makeValue("/root/hidden/seameth",      "0");		// 검색방법(등록번호(0))
					model.makeValue("/root/hidden/seaval",       "");			// 검색값
					model.makeValue("/root/hidden/acptfromdd",   model.getValue("/root/init/sysdt/sysdtinfo/sysdd"));
					model.makeValue("/root/hidden/acpttodd",     model.getValue("/root/init/sysdt/sysdtinfo/sysdd"));
					model.makeValue("/root/hidden/slideqmtflag", "0");
					model.makeValue("/root/init/ptnocode",       "");
					model.makeValue("/root/init/fromyear",       sCurDate.substr(2,2));
					model.makeValue("/root/init/toyear",         sCurDate.substr(2,2));
					model.makeValue("/root/init/fromptno",       "");
					model.makeValue("/root/init/toptno",         "");
					model.makeValue("/root/init/blockind",       "0");
					
					//------------------------------------------
					//  Cassette(블록) 및 Slide(슬라이드) 목록 조회
					model.makeValue("/root/send/baseflagcd", "'81', '82'");
					submit("TRLPZ00103");
					
					//------------
					// 노드 초기화
					model.removeNodeset("/root/main/acptspc/acptspclist");
					model.removeNodeset("/root/main/csteinfo/cstelist");
					model.removeNodeset("/root/main/slidinfo/slidlist");
					
					//--------------
					model.refresh();
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.11 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 접수 세부검체 목록 조회 Function
				*/
				function fGetSpcSeqList() {
					
					var sTemp  = "";
					
					//--------------------------------
					model.removeNodeset("/root/send");
					model.removeNodeset("/root/main/csteinfo/cstelist");
					model.removeNodeset("/root/main/slidinfo/slidlist");
					
					//------------------------------------------------
					if (model.getValue("/root/init/ptnocode") != "") {
						
						//------------------------------------------------
						if (model.getValue("/root/init/fromyear") == "") {
							model.makeValue("/root/init/fromyear", sFromDD.substr(2,2));
						} else {
							sTemp = model.getValue("/root/init/fromyear");
							model.makeValue("/root/init/fromyear", sTemp.getLeftPad(2, "0"));
						}
						
						//----------------------------------------------
						if (model.getValue("/root/init/toyear") == "") {
							model.makeValue("/root/init/toyear", sToDD.substr(2,2));
						} else {
							sTemp = model.getValue("/root/init/toyear");
							model.makeValue("/root/init/toyear", sTemp.getLeftPad(2, "0"));
						}
						
						//------------------------------------------------
						if (model.getValue("/root/init/fromptno") == "") {
							model.makeValue("/root/init/fromptno", "000000");
						} else {
							sTemp = model.getValue("/root/init/fromptno");
							model.makeValue("/root/init/fromptno", sTemp.getLeftPad(6, "0"));
						}
						
						//----------------------------------------------
						if (model.getValue("/root/init/toptno") == "") {
							model.makeValue("/root/init/toptno", "999999");
						} else {
							sTemp = model.getValue("/root/init/toptno");
							model.makeValue("/root/init/toptno", sTemp.getLeftPad(6, "0"));
						}
					}
					
					//--------------------------------------------
					sTemp = model.getValue("/root/init/ptnocode");
					
					//---------------------------------------------------------------------
					model.makeValue("/root/send/instcd",     getUserInfo("dutplceinstcd"));				// 기관코드
					model.makeValue("/root/send/refmthd",    model.getValue("/root/hidden/seameth"));		// 검색방법
					model.makeValue("/root/send/refval",     model.getValue("/root/hidden/seaval"));		// 검색값
					model.makeValue("/root/send/acptfromdd", model.getValue("/root/hidden/acptfromdd"));		// 접수시작일자
					model.makeValue("/root/send/acpttodd",   model.getValue("/root/hidden/acpttodd"));		// 접수종료일자
					model.makeValue("/root/send/ptnocode",   sTemp.replace("-", ""));	
					model.makeValue("/root/send/fromyear",   model.getValue("/root/init/fromyear"));	
					model.makeValue("/root/send/fromptno",   model.getValue("/root/init/fromptno"));	
					model.makeValue("/root/send/toyear",     model.getValue("/root/init/toyear"));	
					model.makeValue("/root/send/toptno",     model.getValue("/root/init/toptno"));	
					submit("TRLPB00101");
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.11 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 접수 세부검체 클릭 처리 Function
				*/
				function fExeSpcSeqClick(pRowNo) {
					
					//---------------------------------------------------------------------------------
					if (grd_spclist.isCell(event.target) && grd_spclist.row >= grd_spclist.fixedRows) {
						fGetCsteList(pRowNo);
					}
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.11 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : Cassette 목록 조회 처리 Function
				*/
				function fGetCsteList(pRowNo) {
					
					var sSrcNode = "/root/main/acptspc/acptspclist";
					
					//--------------------------------
					model.removeNodeset("/root/send");
					model.removeNodeset("/root/init/relatestnm/relatestnmlist");
					model.removeNodeset("/root/main/csteinfo/cstelist");
					model.removeNodeset("/root/main/slidinfo/slidlist");
					
					//-----------------------------------------------------------------------------------------
					model.makeValue("/root/send/instcd",       model.getValue(sSrcNode+"["+pRowNo+"]/instcd"));
					model.makeValue("/root/send/ptno",         model.getValue(sSrcNode+"["+pRowNo+"]/ptno"));
					model.makeValue("/root/send/spcacptdd",    model.getValue(sSrcNode+"["+pRowNo+"]/spcacptdd"));
					model.makeValue("/root/send/spcacptno",    model.getValue(sSrcNode+"["+pRowNo+"]/spcacptno"));
					model.makeValue("/root/send/spcacptseqno", model.getValue(sSrcNode+"["+pRowNo+"]/spcacptseqno"));
					
					//-------------------
					submit("TRLPB00102");
					
					//--------------------
					// 관련검사명 목록조회
					model.makeValue("/root/send/pid",         model.getValue(sSrcNode+"["+pRowNo+"]/pid"));
					model.makeValue("/root/send/selfflagcd",  "0");									// (0:전체, 1:자신제외)
					model.makeValue("/root/send/testflagcd",  "0");									// (0:전체, 1:특수/면역/면역형광)
					model.makeValue("/root/send/workflagcd",  "'1004', '1005', '1006'");					
					
					//-------------------
					submit("TRLPZ00110");
				}				
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.11 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : Cassette 클릭 처리 Function
				*/
				function fExeCsteClick(pRowNo) {
					
					//------------------------------------------------------------------------------------
					if (grd_cstelist.isCell(event.target) && grd_cstelist.row >= grd_cstelist.fixedRows) {
						if (grd_cstelist.col == 1) {
							model.makeValue("/root/init/blockind", "0");
							fGetSlidList(pRowNo, "C");
						}
						
						//--------------
						model.refresh();
					}
				}

				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 슬라이드 목록 조회 처리 Function
				*/
				function fGetSlidList(pRowNo, pBizFlagCd) {

					var iRowNo   = grd_cstelist.row;		
					var iCsteNo  = "";			
					var sOrgNode = "/root/main/acptspc/acptspclist";
					var sSrcNode = "/root/main/csteinfo/cstelist";


					//----------------------
					if (pBizFlagCd == "C") {
						
						//------------------------------------------------------------------------------
						for (var iNo=1; iNo <= getNodesetCount("/root/main/csteinfo/cstelist"); iNo++) {
							model.makeValue("/root/main/csteinfo/cstelist["+iNo+"]/choi", "false");
						}
						
						//-------------------------------------------------------
						iCsteNo = model.getValue(sSrcNode+"["+pRowNo+"]/csteno");
						model.makeValue("/root/main/csteinfo/cstelist["+iRowNo+"]/choi", "true");
					} else {
						iCsteNo  = "000";
						sSrcNode = sOrgNode;
					}
					
					//--------------------------------
					model.removeNodeset("/root/send");
					model.removeNodeset("/root/main/slidinfo/slidlist");
					
					//-----------------------------------------------------------------------------------------
					model.makeValue("/root/send/instcd",       model.getValue(sSrcNode+"["+pRowNo+"]/instcd"));
					model.makeValue("/root/send/ptno",         model.getValue(sSrcNode+"["+pRowNo+"]/ptno"));
					model.makeValue("/root/send/spcacptdd",    model.getValue(sSrcNode+"["+pRowNo+"]/spcacptdd"));
					model.makeValue("/root/send/spcacptno",    model.getValue(sSrcNode+"["+pRowNo+"]/spcacptno"));
					model.makeValue("/root/send/spcacptseqno", model.getValue(sSrcNode+"["+pRowNo+"]/spcacptseqno"));
					model.makeValue("/root/send/csteno",       iCsteNo);
					
					//-------------------
					submit("TRLPB00103");
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : Cassette 행추가 처리 Function
				*/
				function fExeCsteAdd() {
					
					var iCsteNo    = 0;
					var iFindNo    = grd_spclist.row;
					var iMaxRowCnt = 0;
					var iIssCnt    = 0;
					var sSrcNode   = "/root/main/acptspc/acptspclist";
					var sDescNode  = "/root/main/csteinfo/cstelist";
					
					//-----------------------------
					// 세부검체의 선택된 Row를 검색
					if (iFindNo > 0) {
						
						//-------------------------------------------------
						if (model.getValue("/root/hidden/cstecnt") == "") {
							iIssCnt = 1;
						} else {
							iIssCnt = Number(model.getValue("/root/hidden/cstecnt"));
						}


						//--------------------------------------------------
						for (var iLoopNo=1; iLoopNo <= iIssCnt; iLoopNo++) {
							//--------------------
							grd_cstelist.addRow();
							
							//--------------------------------------
							iMaxRowCnt = getNodesetCount(sDescNode);
							
							//-------------------
							if (iMaxRowCnt > 1) {
								iCsteNo = model.getValue(sDescNode+"[" + (Number(iMaxRowCnt) - 1) + "]/csteno");
								iCsteNo = Number(iCsteNo) + 1;
							} else {
								iCsteNo = 1;
							}
							
							//---------------------------------------------------------------------------------------------------------------------
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/instcd",          model.getValue(sSrcNode+"[" + iFindNo + "]/instcd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/ptno",            model.getValue(sSrcNode+"[" + iFindNo + "]/ptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/dispptno",        model.getValue(sSrcNode+"[" + iFindNo + "]/dispptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptdd",       model.getValue(sSrcNode+"[" + iFindNo + "]/spcacptdd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptno",       model.getValue(sSrcNode+"[" + iFindNo + "]/spcacptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptseqno",    model.getValue(sSrcNode+"[" + iFindNo + "]/spcacptseqno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/csteno",          iCsteNo.toString().getLeftPad(3, "0"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/slidcnt",         "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spccd",           model.getValue(sSrcNode+"[" + iFindNo + "]/spccd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/slidno",          "000");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/cstekindcd",      "1001");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/cstecnts",        model.getValue("/root/init/resncd/resncdlist[baseflagcd='81' and resncd='1001']/resncnts"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/tisscnt",         "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/statsinclflagcd", "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptdd",          model.getValue(sSrcNode+"[" + iFindNo + "]/acptdd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptno",          model.getValue(sSrcNode+"[" + iFindNo + "]/acptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/testcd",          "-");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptitemno",      "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/reprnt",          "false");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/statflagcd",      "C");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/scrno",           "10");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/hopper",          "1");
							
							//-------------------------------
							grd_cstelist.row = iMaxRowCnt;
							fExeCsteChange();
						}
					} else {
						messageBox("Cassette를 발행할 세부검체를 ", "C002");
					}
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : Cassette 행삭제 처리 Function
				*/
				function fExeCsteDel(pRowNo) {
					
					var sSrcNode  = "/root/main/csteinfo/cstelist";
					
					//----------------------------------------------------------------------------
					if (model.getValue(sSrcNode+"[" + pRowNo+ "]/statflagcd") == "C") {
						grd_cstelist.deleteRow(pRowNo);
					} else {
						model.makeValue(sSrcNode+"[" + pRowNo + "]/statflagcd", "D");
						grd_cstelist.addStatus(pRowNo, "delete");
					}
				}

				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 슬라이드 행추가 처리 Function
				*/
				function fExeSlidAdd() {
					
					var iFindNo    = -1;
					var iMaxRowCnt = 0;
					var iIssCnt    = 0;
					var sOrgNode   = "/root/main/acptspc/acptspclist";
					var sSrcNode   = "/root/main/csteinfo/cstelist";
					var sDescNode  = "/root/main/slidinfo/slidlist";
					
					//-----------------------------
					// Cassette의 선택된 Row를 검색
					iFindNo = grd_cstelist.findRow("true", 1, 1, true, true);
					if (iFindNo > 0) {
						
						//-------------------------------------------------------------------
						if (model.getValue(sSrcNode+"[" + iFindNo + "]/statflagcd") == "I") {
							messageBox("Cassette를 저장하여 주십시오! 슬라이드를 발행", "E001");
							return false;
						}
						
						//-----------------------------------------------
						if (model.getValue("/root/hidden/slidcnt") == "") {
							iIssCnt = 1;
						} else {
							iIssCnt = Number(model.getValue("/root/hidden/slidcnt"));
						}
						
						
						//---------------------------------------------------
						for (var iLoopNo=1; iLoopNo <= iIssCnt; iLoopNo++) {
							//--------------------
							grd_slidlist.addRow();
							
							//--------------------------------------
							iMaxRowCnt = getNodesetCount(sDescNode);
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/instcd",          model.getValue(sSrcNode+"[" + iFindNo + "]/instcd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/ptno",            model.getValue(sSrcNode+"[" + iFindNo + "]/ptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/dispptno",        model.getValue(sSrcNode+"[" + iFindNo + "]/dispptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptdd",       model.getValue(sSrcNode+"[" + iFindNo + "]/spcacptdd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptno",       model.getValue(sSrcNode+"[" + iFindNo + "]/spcacptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptseqno",    model.getValue(sSrcNode+"[" + iFindNo + "]/spcacptseqno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/csteno",          model.getValue(sSrcNode+"[" + iFindNo + "]/csteno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spccd",           model.getValue(sSrcNode+"[" + iFindNo + "]/spccd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/slidno",          "000");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/cstekindcd",      "1001");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/cstecnts",        model.getValue("/root/init/resncd/resncdlist[baseflagcd='82' and resncd='1001']/resncnts"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/tisscnt",         "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/statsinclflagcd", "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptdd",          model.getValue(sSrcNode+"[" + iFindNo + "]/acptdd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptno",          model.getValue(sSrcNode+"[" + iFindNo + "]/acptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/testcd",          "-");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptitemno",      "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/reprnt",          "false");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/statflagcd",      "C");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/scrno",           "20");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/relaptno",        "-");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/reladispptno",    "-");
						}
					} else {
						//-------------------------------------------------
						if (model.getValue("/root/init/blockind") == "0") {
							messageBox("슬라이드를 발행할 Cassette를 ", "C002");
							return false;
						} else {
							if (grd_spclist.row <= 0) {
								messageBox("접수검체목록에서 병리번호를 ", "C002");
								return false;
							}
						}
						
						//-------------------------------------------------------
						iIssCnt = Number(model.getValue("/root/hidden/slidcnt"));
						for (var iLoopNo=1; iLoopNo <= iIssCnt; iLoopNo++) {
							
							//--------------------
							grd_slidlist.addRow();
							
							//--------------------------------------
							iMaxRowCnt = getNodesetCount(sDescNode);
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/instcd",          model.getValue(sOrgNode+"[" + grd_spclist.row + "]/instcd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/ptno",            model.getValue(sOrgNode+"[" + grd_spclist.row + "]/ptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/dispptno",        model.getValue(sOrgNode+"[" + grd_spclist.row + "]/dispptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptdd",       model.getValue(sOrgNode+"[" + grd_spclist.row + "]/spcacptdd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptno",       model.getValue(sOrgNode+"[" + grd_spclist.row + "]/spcacptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spcacptseqno",    model.getValue(sOrgNode+"[" + grd_spclist.row + "]/spcacptseqno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/csteno",          "000");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/spccd",           model.getValue(sOrgNode+"[" + grd_spclist.row + "]/spccd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/slidno",          iMaxRowCnt.toString().getLeftPad(3, "0"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/cstekindcd",      "1001");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/cstecnts",        model.getValue("/root/init/resncd/resncdlist[baseflagcd='82' and resncd='1001']/resncnts"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/tisscnt",         "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/statsinclflagcd", "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptdd",          model.getValue(sOrgNode+"[" + grd_spclist.row + "]/acptdd"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptno",          model.getValue(sOrgNode+"[" + grd_spclist.row + "]/acptno"));
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/testcd",          "-");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/acptitemno",      "0");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/reprnt",          "false");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/statflagcd",      "C");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/scrno",           "20");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/relaptno",        "-");
							model.makeValue(sDescNode+"[" + iMaxRowCnt + "]/reladispptno",    "-");
						}
					}
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 슬라이드 행삭제 처리 Function
				*/
				function fExeSlideDel(pRowNo) {
					
					var sSrcNode  = "/root/main/slidinfo/slidlist";
					
					//----------------------------------------------------------------------------
					if (model.getValue(sSrcNode+"[" + pRowNo + "]/statflagcd") == "C") {
						grd_slidlist.deleteItem(pRowNo);
					} else {
						model.makeValue(sSrcNode+"[" + pRowNo + "]/statflagcd", "D");
						grd_slidlist.addStatus(pRowNo, "delete");
					}
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : Cassette/슬라이드 저장 처리 Function
				*/
				function fExeCsteSlidSave(pBizFlagCd) {
					
					var sSrcNode = "";
					var iFindNo  = 0;
					
					//--------------------------------
					model.removeNodeset("/root/send");
					
					//------------------------
					// C:Cassette,  S:슬라이드
					if (pBizFlagCd == "C") {
						
						if (getNodesetCount("/root/main/csteinfo/cstelist") <= 0) {
							messageBox("저장 대상이 없습니다! 저장을 ", "E001");
							return false;
						}
						
						//-------------------------
						grd_cstelist.clearStatus();
						sSrcNode = "/root/main/csteinfo/cstelist";
						
						//--------------------------------------------------------
						for (var iNo=1; iNo <= getNodesetCount(sSrcNode); iNo++) {
							if (model.getValue(sSrcNode+"["+iNo+"]/statflagcd") != "D") {
								grd_cstelist.addStatus(iNo, "insert");
								model.makeValue(sSrcNode+"["+iNo+"]/statsinclflagcd",     model.getValue(sSrcNode+"["+iNo+"]/hopper"));
								
							} else if (model.getValue(sSrcNode+"["+iNo+"]/statflagcd") == "D") {
								grd_cstelist.addStatus(iNo, "delete");
							}
						}
						
						//-----------------------------------------------------------------------
						model.makeValue("/root/send/csteslidlist", grd_cstelist.getUpdateData());
						
					} else {
						if (getNodesetCount("/root/main/slidinfo/slidlist") <= 0) {
							messageBox("저장 대상이 없습니다! 저장을 ", "E001");
							return false;
						}
						
						//-------------------------
						grd_slidlist.clearStatus();
						sSrcNode = "/root/main/slidinfo/slidlist";
						
						//--------------------------------------------------------
						for (var iNo=1; iNo <= getNodesetCount(sSrcNode); iNo++) {
							if (model.getValue(sSrcNode+"["+iNo+"]/statflagcd") != "D") {
								grd_slidlist.addStatus(iNo, "insert");
								model.setValue(sSrcNode+"["+iNo+"]/statflagcd", "C");
							} else if (model.getValue(sSrcNode+"["+iNo+"]/statflagcd") == "D") {
								grd_slidlist.addStatus(iNo, "delete");
							}
						}
						
						//-----------------------------------------------------------------------
						model.makeValue("/root/send/csteslidlist", grd_slidlist.getUpdateData());
					}
					
					//-----------
					setAlertOn();
					if (submit("TXLPB00101")) {
						if (pBizFlagCd == "C") {
							fGetCsteList(grd_spclist.row);
						} else {
							if (model.getValue("/root/init/blockind") == "0") {
								fGetSlidList(grd_cstelist.row, "C");		
							} else {
								fGetSlidList(grd_spclist.row, pBizFlagCd);		
							}
						}
						
					}
					
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 검사명 변경 처리 Function
				*/
				function fExeSlidTestChange() {
					
					var iRowNo    = grd_slidlist.row;
					var sSrcNode  = "/root/init/relatestnm/relatestnmlist";
					var sDescNode = "/root/main/slidinfo/slidlist";
					var sNode     = "";
					var sResnNode = "/root/init/resncd/resncdlist";
					var iSlidListNo = 0;
					
					//----------------------------
					if (grd_slidlist.col == grd_slidlist.colRef("testcd")) {
						
						//-------------------------------------------------------------------------------
						sNode  = "acptdd='" + model.getValue(sDescNode+"["+iRowNo+"]/acptdd") + "' and ";
						sNode += "acptno='" + model.getValue(sDescNode+"["+iRowNo+"]/acptno") + "' and ";
						sNode += "testcd='" + model.getValue(sDescNode+"["+iRowNo+"]/testcd") + "'";
						
						for (var iNo=1; iNo <= getNodesetCount(sSrcNode); iNo++) {
							if(model.getValue(sDescNode+"["+grd_slidlist.row+"]/testcd") == model.getValue(sSrcNode+"["+iNo+"]/testcd")) {
								iSlidListNo = iNo;
								break;
							}
						}
						
						
						model.makeValue(sDescNode+"["+grd_slidlist.row+"]/acptitemno",   model.getValue(sSrcNode+"["+iSlidListNo+"]/acptitemno"));
						
						//----------------------------------------------------------------------------------------------------------
						if (model.getValue(sDescNode+"["+grd_slidlist.row+"]/ptno") == model.getValue(sSrcNode+"["+iSlidListNo+"]/ptno")) {
							// Continue
						} else {
							model.makeValue(sDescNode+"["+grd_slidlist.row+"]/relaptno",     model.getValue(sSrcNode+"["+iSlidListNo+"]/ptno"));
							model.makeValue(sDescNode+"["+grd_slidlist.row+"]/reladispptno", model.getValue(sSrcNode+"["+iSlidListNo+"]/dispptno"));
							model.makeValue(sDescNode+"["+grd_slidlist.row+"]/cstecnts",     model.getValue(sSrcNode+"["+iSlidListNo+"]/testnm"));
							
							//-----------------------------------------------------------
							switch (model.getValue(sSrcNode+"["+ iSlidListNo+"]/workflagcd")) {
								case "1004" : model.makeValue(sDescNode+"["+grd_slidlist.row+"]/cstekindcd", "1009");
									break;
								case "1005" : model.makeValue(sDescNode+"["+grd_slidlist.row+"]/cstekindcd", "1010");
									break;
								case "1006" : model.makeValue(sDescNode+"["+grd_slidlist.row+"]/cstekindcd", "1011");
									break;
								default : model.makeValue(sDescNode+"["+grd_slidlist.row+"]/cstekindcd", "1001");
							}
							
						}
					} else if (grd_slidlist.col == grd_slidlist.colRef("cstekindcd")) {
						model.makeValue(sDescNode+"["+grd_slidlist.row+"]/cstecnts", model.getValue(sResnNode+"[baseflagcd = '82' and resncd='"+model.getValue(sDescNode+"["+grd_slidlist.row+"]/cstekindcd")+"']/resncnts"));
					}
					
					//---------------------
					grd_slidlist.refresh();
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : Cassette 재출력 처리 Function
				*/
				function fExeCsteIss(pBizFlag) {
					
					var iFindNo  = -1;
					var sSrcNode = "/root/main/csteinfo/cstelist";
					
					//---------------------
					// C:신규발행, R:재발행
					if (pBizFlag == "C") {
						for (var iNo=1; iNo <= getNodesetCount(sSrcNode); iNo++) {
							//---------------------------------
							// 신규와 삭제분은 발행하지 않는다.
							if (model.getValue(sSrcNode+"["+iNo+"]/statflagcd") == "C") {
							}
						}
					} else {
						iFindNo = grd_cstelist.findRow("true", 1, 18, true, true);
						if (iFindNo > 0) {
							fExeSocketCsteSend();
						} else {
							messageBox("재출력 Cassette를", "C002");
						}
					}
				}
				
				/* @group  : Cassette/슬라이드발행
				 * @ver    : 2007.08.12 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 슬라이드 재출력 처리 Function
				*/
				function fExeSlidIss(pBizFlag) {
					
					var iFindNo  = -1;
					var sSrcNode = "/root/main/slidinfo/slidlist";
					
					//---------------------
					// C:신규발행, R:재발행
					if (pBizFlag == "C") {
						for (var iNo=1; iNo <= getNodesetCount(sSrcNode); iNo++) {
							//---------------------------------
							// 신규와 삭제분은 발행하지 않는다.
							if (model.getValue(sSrcNode+"["+iNo+"]/statflagcd") == "C") {
							}
						}
					} else {
						iFindNo = grd_slidlist.findRow("true", 1, grd_slidlist.colRef("reprnt"), true, true);
						if (iFindNo > 0) {
							fExeSocketSlidSend();
						} else {
							messageBox("재출력 슬라이드를", "C002");
						}
					}
				}
				
				/* @group  : Cassette일괄출력
				 * @ver    : 2007.05.24 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 발행 Cassette목록을 장비로 전송 Function
				*/
				function fExeSocketCsteSend() {
					
					var sSendMsg = "";
					
					//-----------------------------------------------
					var sInfoNode = "/root/init/hospenv/hospenvinfo";
					var sCsteNode = "/root/main/csteinfo/cstelist";
					var sCsteIP   = model.getValue(sInfoNode+"/csteeqmtip");
					var sCstePort = model.getValue(sInfoNode+"/csteeqmtport");
					
					//장비IP set
					for(var iRowNo = 1 ; iRowNo <= getNodesetCount("/root/main/eqinfo/caeqlist") ; iRowNo++){
						if(model.getValue("/root/init/eqcaseqno") == model.getValue("/root/main/eqinfo/caeqlist["+ iRowNo +"]/eqseqno")) {
							sCsteIP   = model.getValue("/root/main/eqinfo/caeqlist["+ iRowNo +"]/eqip");
							sCstePort = model.getValue("/root/main/eqinfo/caeqlist["+ iRowNo +"]/eqport");
						}
					}
					
					//------------------------------------
					if (sCsteIP == "" || sCsteIP == "-") {
						messageBox("Cassette(블럭)장비의 IP주소가 없습니다. 병원별 환경설정에서 ", "C001");
						return false;
					}
					//----------------------------------------
					if (sCstePort == "" || sCstePort == "-") {
						messageBox("Cassette(블럭)장비의 Port번호가 없습니다. 병원별 환경설정에서 ", "C001");
						return false;
					}
					
					//-------------------------------------
					socketcste.connect(sCsteIP, sCstePort);
				}
				
				/* @group  : Cassette일괄출력
				 * @ver    : 2007.05.24 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 발행 Cassette목록을 장비로 전송 Function
				*/
				function fExeSocketSlidSend() {
					
					var sSendMsg = "";
					
					//-----------------------------------------------
					var sInfoNode = "/root/init/hospenv/hospenvinfo";
					var sSlidIP   = model.getValue(sInfoNode+"/slideqmtip");
					var sSlidPort = model.getValue(sInfoNode+"/slideqmtport");
					
					//장비IP set
					for(var iRowNo = 1 ; iRowNo <= getNodesetCount("/root/main/eqinfo/slideqlist") ; iRowNo++){
						if(model.getValue("/root/init/eqslidseqno") == model.getValue("/root/main/eqinfo/slideqlist["+ iRowNo +"]/eqseqno")) {
							sSlidIP   = model.getValue("/root/main/eqinfo/slideqlist["+ iRowNo +"]/eqip");
							sSlidPort = model.getValue("/root/main/eqinfo/slideqlist["+ iRowNo +"]/eqport");
						}
					}
					
					//------------------------------------
					if (sSlidIP == "" || sSlidIP == "-") {
						messageBox("슬라이드 장비의 IP주소가 없습니다. 병원별 환경설정에서 ", "C001");
						return false;
					}
					//----------------------------------------
					if (sSlidPort == "" || sSlidPort == "-") {
						messageBox("슬라이드 장비의 Port번호가 없습니다. 병원별 환경설정에서 ", "C001");
						return false;
					}
						
					//-------------------------------------
					socketslid.connect(sSlidIP, sSlidPort);
				}
				
				/* @group  : Cassette일괄출력
				 * @ver    : 2007.11.05 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : 등록번호 입력 처리 Function
				*/
				function fExeRefValKeyPress() {
					
					if (event.keyCode == 13) {
						model.makeValue("/root/hidden/seaval", ipt_seaval.currentText);
						ipt_seaval.refresh();
						
						//---------------
						fGetSpcSeqList();
					}
				}
				
				/* @group  : Cassette일괄출력
				 * @ver    : 2007.11.05 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : Cassette종류 선택 처리 Function
				*/
				function fExeCsteChange() {
					
					var sNode     = "/root/main/csteinfo/cstelist";
					var iRowNo    = grd_cstelist.row;
					var sCsteCnts = model.getValue(sNode+"["+iRowNo+"]/cstecnts");
					var iSpcSeqNo = Number(model.getValue(sNode+"["+iRowNo+"]/spcacptseqno"));
					var iCsteNo   = Number(model.getValue(sNode+"["+iRowNo+"]/csteno"));
					var sCsteKind = model.getValue(sNode+"["+iRowNo+"]/cstekindcd");
					
					
					sCsteCnts = model.getValue("/root/init/resncd/resncdlist[resncd='"+sCsteKind+"']/resncnts");
					sCsteCnts = lpzfExeCsteCnt(sCsteCnts, iSpcSeqNo, Number(iCsteNo));
					
					model.setValue(sNode+"["+iRowNo+"]/cstecnts", sCsteCnts);
					
					if((model.getValue(sNode+"["+iRowNo+"]/statflagcd") != "C") && (model.getValue(sNode+"["+iRowNo+"]/statflagcd") != "D")) {
						model.setValue(sNode+"["+iRowNo+"]/statflagcd", "UPDATE");
					}
					
					grd_cstelist.refresh();
				}
				
				/* @group  : Cassette일괄출력
				 * @ver    : 2007.11.05 (CMCDEV-0001)
				 * @by     : 유동철(ACK)
				 * @-----------------------------------
				 * @type   : function
				 * @access : public
				 * @desc   : Cassette종류(가상블럭) 선택 처리 Function
				*/
				function fExeBlocKindChange() {
					
					var iFindNo = 0;
					
					//-------------------------
					if (grd_spclist.row <= 0) {
						messageBox("접수검체 목록에서 병리번호를 ", "C002");
						return false;
					}
					
					//-------------------------------------------------
					if (model.getValue("/root/init/blockind") == "0") {
						iFindNo = grd_cstelist.findRow("true", 1, 1, true, true);
						
						//----------------
						if (iFindNo > 0) {
							grd_cstelist.select(iFindNo, 1) = true;
							grd_cstelist.row = iFindNo;
							fGetSlidList(iFindNo, "C");
						} else {
							model.removeNodeset("/root/main/slidinfo/slidlist"); 
						}
					} else {
						fGetSlidList(grd_spclist.row, "S");
					}
					
					//---------------------
					grd_slidlist.refresh();
				}
				
				/* @group	    : Cassette/슬라이드제작화면
				 * @ver		    : 2009.02.25 (CMCDEV-0001)
				 * @by		    : 박중규
				 * @-----------------------------------
				 * @type		: function
				 * @access	: public
				 * @desc		: 선택목록 삭제
				 */
				function fDelCaList() {
					
					var iFirstRow = grd_cstelist.selectedRow(0);
					var iLasrRow = grd_cstelist.selectedRow(grd_cstelist.selectedRows-1)
					
					for(var iRowNo = iLasrRow ; iRowNo >= iFirstRow ; iRowNo--) {
						fExeCsteDel(iRowNo);	
					}
					grd_cstelist.refresh();
				}
				
				/* @group	    : Cassette/슬라이드제작화면
				 * @ver		    : 2009.02.25 (CMCDEV-0001)
				 * @by		    : 박중규
				 * @-----------------------------------
				 * @type		: function
				 * @access	: public
				 * @desc		: 선택목록 삭제
				 */
				function fDelSlidList() {
					
					var iFirstRow = grd_slidlist.selectedRow(0);
					var iLasrRow = grd_slidlist.selectedRow(grd_slidlist.selectedRows-1)
					
					for(var iRowNo = iLasrRow ; iRowNo >= iFirstRow ; iRowNo--) {
						fExeSlideDel(iRowNo);
					}
					grd_slidlist.refresh();
				}
			]]>
		</script>
	</xhtml:head>
	<xhtml:body pagewidth="1215" pageheight="800" guideline="1,1194;" style="margin-left:8; margin-top:0; margin-right:8; margin-bottom:0; ">
		<group id="group1" style="left:0px; top:0px; width:1195px; height:13px; ">
			<caption id="caption6" class="tit_1" style="left:0px; top:0px; width:800px; height:14px; ">Cassette/슬라이드제작</caption>
		</group>
		<group id="grp_biz" scroll="auto" style="left:0px; top:40px; width:1195px; height:735px; ">
			<group id="grp_sea" style="left:0px; top:10px; width:1194px; height:35px; vertical-align:top; ">
				<shape id="roundrect2" class="roundrect_search" appearance="roundrect" ellipsewidth="10" ellipseheight="10" style="left:0px; top:0px; width:1194px; height:35px; background-color:#fffbf2; border-color:#ffd799; "/>
				<caption id="caption9" class="search_name" style="left:806px; top:9px; width:86px; height:17px; ">접수일자 :</caption>
				<caption id="caption11" class="search_name" style="left:525px; top:9px; width:86px; height:17px; ">등록번호 :</caption>
				<line id="line13" class="line_4" style="x1:1107px; y1:7px; x2:1107px; y2:29px; "/>
				<input id="ipt_acptddfrom" ref="/root/hidden/acptfromdd" class="input_s_essential" navindex="7" inputtype="date" style="left:895px; top:8px; width:90px; height:19px; "/>
				<caption id="caption1" class="search_no_b" style="left:987; top:8px; width:12px; height:17px; ">~</caption>
				<input id="ipt_acptddto" ref="/root/hidden/acpttodd" class="input_s_essential" navindex="8" inputtype="date" style="left:1002; top:8px; width:90px; height:19px; "/>
				<button id="btn_sea" class="btn1_letter2" navindex="9" style="left:1123px; top:7px; width:56px; height:22px; ">
					<caption>조회</caption>
					<script type="javascript" ev:event="DOMActivate">
						<![CDATA[
							fGetSpcSeqList();
						]]>
					</script>
				</button>
				<input id="ipt_seaval" ref="/root/hidden/seaval" class="input_search" navindex="6" maxlength="10" style="left:617px; top:8px; width:108px; height:19px; ">
					<script type="javascript" ev:event="onkeypress">
						<![CDATA[
							fExeRefValKeyPress();				
						]]>
					</script>
				</input>
				<select1 id="cbo_ptnocd" ref="/root/init/ptnocode" navindex="1" appearance="minimal" editmode="search" style="left:109px; top:8px; width:151px; height:19px; ">
					<choices>
						<itemset nodeset="/root/init/ptnocd/ptnocdlist">
							<label ref="ptnonm"/>
							<value ref="ptnocd"/>
						</itemset>
					</choices>
				</select1>
				<caption id="caption10" class="search_no_b" style="left:346px; top:8px; width:12px; height:17px; ">~</caption>
				<input id="ipt_fromptno" ref="/root/init/fromptno" class="text_center" navindex="3" maxlength="6" style="left:293px; top:8px; width:50px; height:19px; "/>
				<input id="input1" ref="/root/init/toptno" class="text_center" navindex="5" maxlength="6" style="left:391px; top:8px; width:50px; height:19px; "/>
				<input id="input2" ref="/root/init/toyear" class="text_center" navindex="4" maxlength="2" style="left:361px; top:8px; width:27px; height:19px; "/>
				<caption id="caption2" class="search_name" style="left:15px; top:9px; width:90px; height:17px; ">병리번호 :</caption>
				<input id="ipt_fromyear" ref="/root/init/fromyear" class="text_center" navindex="2" maxlength="2" style="left:263px; top:8px; width:27px; height:19px; "/>
			</group>
			<datagrid id="grd_cstelist" nodeset="/root/main/csteinfo/cstelist" class="datagrid2" caption="선&#xA;택^기관코드^병리번호^spcacptdd^spcacptno^spcacptseqno^번호^슬라이드수^종  류^내  용^조직&#xA;갯수^Hopper^내/외&#xA;구분^acptdd^acptno^testcd^acptitemno^재출력^상태^scrno^spccd^slidno^dispptno" colsep="^" colwidth="24, 0, 0, 0, 0, 0, 40, 69, 90, 165, 40, 60, 32, 0, 0, 0, 0, 50, 0, 0, 0, 0, 0" dataheight="23" mergecellsfixedrows="bycolrec" rowheader="update" rowsep="|" navindex="11" style="left:603px; top:75px; width:590px; height:285px; ">
				<col ref="choi" type="checkbox"/>
				<col ref="instcd"/>
				<col ref="ptno"/>
				<col ref="spcacptdd"/>
				<col ref="spcacptno"/>
				<col ref="spcacptseqno"/>
				<col class="text_center" ref="csteno"/>
				<col class="text_center" ref="slidcnt"/>
				<col ref="cstekindcd" type="combo">
					<choices>
						<itemset nodeset="/root/init/resncd/resncdlist[baseflagcd='81']">
							<label ref="resncnts"/>
							<value ref="resncd"/>
						</itemset>
					</choices>
				</col>
				<col ref="cstecnts" type="input"/>
				<col class="text_right" ref="tisscnt" type="input" format="#,###" mask="exclude" showmask="true"/>
				<col ref="hopper" type="combo">
					<choices>
						<item>
							<label>1</label>
							<value>1</value>
						</item>
						<item>
							<label>2</label>
							<value>2</value>
						</item>
						<item>
							<label>3</label>
							<value>3</value>
						</item>
						<item>
							<label>4</label>
							<value>4</value>
						</item>
						<item>
							<label>5</label>
							<value>5</value>
						</item>
						<item>
							<label>6</label>
							<value>6</value>
						</item>
					</choices>
				</col>
				<col ref="statsinclflagcd" type="combo" visibility="hidden">
					<choices>
						<item>
							<label>원내</label>
							<value>0</value>
						</item>
						<item>
							<label>원외</label>
							<value>1</value>
						</item>
					</choices>
				</col>
				<col ref="acptdd"/>
				<col ref="acptno"/>
				<col ref="testcd"/>
				<col ref="acptitemno"/>
				<col ref="reprnt" type="checkbox"/>
				<col ref="statflagcd"/>
				<col ref="scrno"/>
				<col ref="spccd"/>
				<col ref="slidno"/>
				<col ref="dispptno"/>
				<script type="javascript" ev:event="onclick">
					<![CDATA[
						fExeCsteClick(grd_cstelist.row);		
					]]>
				</script>
				<script type="javascript" ev:event="xforms-value-changed">
					<![CDATA[
						var iRowNo    = grd_cstelist.row;
						if((grd_cstelist.col == grd_cstelist.colRef("cstekindcd"))  &&  (grd_cstelist.row >= grd_cstelist.fixedRows)) {
							fExeCsteChange();
						}	else if(grd_cstelist.col == grd_cstelist.colRef("cstecnts") || grd_cstelist.col == grd_cstelist.colRef("statsinclflagcd")){
								if((model.getValue("/root/main/csteinfo/cstelist["+iRowNo+"]/statflagcd") != "C") && (model.getValue("/root/main/csteinfo/cstelist["+iRowNo+"]/statflagcd") != "D")) {
									model.setValue("/root/main/csteinfo/cstelist["+iRowNo+"]/statflagcd", "UPDATE");
								}
						}
					]]>
				</script>
				<script type="javascript" ev:event="onmousedown">
					<![CDATA[
						setPopupMenu("grd_cstelist", false, "/root/init/popupmenu/item", "name", "func");
					]]>
				</script>
			</datagrid>
			<caption id="caption3" class="tit_2" style="left:6px; top:55px; width:113px; height:14px; ">접수검체 목록</caption>
			<line id="line12" class="line_1" style="x1:0px; y1:70px; x2:600px; y2:70px; "/>
			<caption id="caption4" class="tit_2" style="left:609px; top:55px; width:162px; height:14px; ">Cassette(블록) 목록</caption>
			<caption id="caption5" class="tit_2" style="left:609px; top:370px; width:116px; height:13px; ">슬라이드 목록</caption>
			<line id="line4" class="line_1" style="x1:603px; y1:70px; x2:1193px; y2:70px; "/>
			<line id="line6" class="line_1" style="x1:603px; y1:386px; x2:1193px; y2:386px; "/>
			<datagrid id="grd_spclist" nodeset="/root/main/acptspc/acptspclist" class="datagrid2" caption="기관코드^ptno^병리번호^spcacptdd^spcacptno^등록번호^환자명^접수일자^spccd^검체명^세부&#xA;검체^검사항목^acptno^Cassette수" colsep="^" colwidth="0, 0, 80, 0, 0, 80, 80, 80, 0, 100, 40, 122, 0" dataheight="23" explorerbar="sortshow" mergecellsfixedrows="bycolrec" rowsep="|" navindex="10" style="left:0px; top:75px; width:600px; height:653px; font-family:굴림체; font-size:9pt; text-align:center; ">
				<col ref="instcd"/>
				<col ref="ptno"/>
				<col ref="dispptno"/>
				<col ref="spcacptdd"/>
				<col ref="spcacptno"/>
				<col ref="pid"/>
				<col ref="patnm"/>
				<col ref="acptdd" format="yyyy-mm-dd" mask="exclude" showmask="true"/>
				<col ref="spccd"/>
				<col ref="spcnm"/>
				<col ref="spcacptseqno"/>
				<col ref="testnmlist"/>
				<col ref="acptno"/>
				<script type="javascript" ev:event="onclick">
					<![CDATA[
						fExeSpcSeqClick(grd_spclist.row);
					]]>
				</script>
				<script type="javascript" ev:event="onaftersort">
					<![CDATA[
						grd_spclist.gridToInstance();		
					]]>
				</script>
			</datagrid>
			<datagrid id="grd_slidlist" nodeset="/root/main/slidinfo/slidlist" class="datagrid2" caption="기관코드^병리번호^spcacptdd^spcacptno^spcacptseqno^csteno^번호^종  류^Block번호^슬라이드 내용^내/외&#xA;구분^tisscnt^acptdd^acptno^검사명^acptitemno^재출력^상태^scrno^spccd^dispptno^relaptno^reladispptno" colsep="^" colwidth="0, 0, 0, 0, 0, 0, 35, 100, 111, 134, 21, 0, 0, 0, 110, 0, 50, 0, 0, 0, 0, 0, 0" dataheight="23" mergecellsfixedrows="bycolrec" rowheader="update" rowsep="|" navindex="16" style="left:603px; top:392px; width:590px; height:336px; ">
				<col ref="instcd"/>
				<col ref="ptno"/>
				<col ref="spcacptdd"/>
				<col ref="spcacptno"/>
				<col ref="spcacptseqno"/>
				<col ref="csteno"/>
				<col ref="slidno"/>
				<col ref="cstekindcd" type="combo">
					<choices>
						<itemset nodeset="/root/init/resncd/resncdlist[baseflagcd='82']">
							<label ref="resncnts"/>
							<value ref="resncd"/>
						</itemset>
					</choices>
				</col>
				<col ref="prtnblocnm" type="input"/>
				<col ref="cstecnts" type="input"/>
				<col ref="statsinclflagcd" type="combo" visibility="hidden">
					<choices>
						<item>
							<label>원내</label>
							<value>0</value>
						</item>
						<item>
							<label>원외</label>
							<value>1</value>
						</item>
					</choices>
				</col>
				<col ref="tisscnt"/>
				<col ref="acptdd"/>
				<col ref="acptno"/>
				<col ref="testcd" type="combo">
					<choices>
						<itemset nodeset="/root/init/relatestnm/relatestnmlist">
							<label ref="testnm"/>
							<value ref="testcd"/>
						</itemset>
					</choices>
				</col>
				<col ref="acptitemno"/>
				<col ref="reprnt" type="checkbox"/>
				<col ref="statflagcd"/>
				<col ref="scrno"/>
				<col ref="spccd"/>
				<col ref="dispptno"/>
				<col ref="relaptno"/>
				<col ref="reladispptno"/>
				<script type="javascript" ev:event="xforms-value-changed">
					<![CDATA[
						fExeSlidTestChange();		
					]]>
				</script>
				<script type="javascript" ev:event="onmousedown">
					<![CDATA[
						setPopupMenu("grd_slidlist", false, "/root/init/popupmenu/item2", "name", "func");
					]]>
				</script>
			</datagrid>
			<button id="btn_addcste" class="btn2_letter3" navindex="14" style="left:1084px; top:50px; width:53px; height:19px; ">
				<caption>행추가</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fExeCsteAdd();		
					]]>
				</script>
			</button>
			<button id="btn_delcste" class="btn2_letter3" navindex="15" style="left:1140px; top:50px; width:53px; height:19px; ">
				<caption>행삭제</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fExeCsteDel(grd_cstelist.row);		
					]]>
				</script>
			</button>
			<button id="btn_addslid" class="btn2_letter3" navindex="20" style="left:1084px; top:366px; width:53px; height:19px; ">
				<caption>행추가</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fExeSlidAdd();		
					]]>
				</script>
			</button>
			<button id="btn_delslid" class="btn2_letter3" navindex="21" style="left:1140px; top:366px; width:53px; height:19px; ">
				<caption>행삭제</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fExeSlideDel(grd_slidlist.row);		
					]]>
				</script>
			</button>
			<button id="btn_save" class="btn2_letter4" navindex="13" style="left:1017px; top:50px; width:64px; height:19px; ">
				<caption>블럭저장</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fExeCsteSlidSave("C");		
					]]>
				</script>
			</button>
			<button id="btn_slidsave" class="btn2_letter6" navindex="19" style="left:995px; top:366px; width:86px; height:19px; ">
				<caption>슬라이드저장</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fExeCsteSlidSave("S");		
					]]>
				</script>
			</button>
			<select1 id="combo1" ref="/root/hidden/slideqmtflag" navindex="17" visibility="hidden" appearance="minimal" style="left:710px; top:275px; width:95px; height:19px; ">
				<choices>
					<item>
						<label>슬라이드</label>
						<value>0</value>
					</item>
					<item>
						<label>라벨지</label>
						<value>1</value>
					</item>
				</choices>
			</select1>
			<input id="ipt_cstecnt" ref="/root/hidden/cstecnt" navindex="12" format="#,###" mask="exclude" showmask="true" style="left:760px; top:50px; width:25px; height:19px; "/>
			<input id="ipt_slidcnt" ref="/root/hidden/slidcnt" navindex="18" format="#,###" mask="exclude" showmask="true" style="left:713px; top:366px; width:25px; height:19px; "/>
			<object id="socketcste" clsid="{81e9de7e-90be-4958-bbda-ac731c05aba8}" visibility="hidden" style="left:325px; top:40px; width:35px; height:30px; ">
				<!-- 소켓 받은 메시지 이벤트 -->
				<script type="javascript" ev:event="OnReceive(nDataLength, szID)">
					<![CDATA[
					]]>
				</script>
				<!-- 소켓 에러 이벤트 -->
				<script type="javascript" ev:event="OnError(lError, szMsg)">
					<![CDATA[
						alert("Error code = " + lError+"\nError Message : "+szMsg);
						socketcste.close();					// 소켓 닫기
						isConnected = false; 			// 접속 여부 false
					]]>
				</script>
				<!-- 소켓 연결 이벤트 -->
				<script type="javascript" ev:event="OnConnect(szID)">
					<![CDATA[
						isConnected = true; 	// 접속 여부 false
						var sCsteNode = "/root/main/csteinfo/cstelist";
					
						//------------------------------------------------------------------
						for (var iRowNo=1; iRowNo <= getNodesetCount(sCsteNode); iRowNo++) {
							
							if (model.getValue(sCsteNode+"["+iRowNo+"]/reprnt") == "true") {
								//---------------------------------
								// 신규와 삭제분은 발행하지 않는다.
								if (model.getValue(sCsteNode+"["+iRowNo+"]/statflagcd") == "-") {
									sSendMsg  = "";
									sSendMsg += model.getValue(sCsteNode+"["+iRowNo+"]/ptno") + "▦";			// 병리번호
									sSendMsg += model.getValue(sCsteNode+"["+iRowNo+"]/dispptno") + "▦";			// 표시병리번호
									sSendMsg += model.getValue(sCsteNode+"["+iRowNo+"]/spcacptseqno") + "▦";		// 검체일련번호
									sSendMsg += model.getValue(sCsteNode+"["+iRowNo+"]/csteno") + "▦";			// 블럭번호
									sSendMsg += "000" + "▦";											// 슬라이드번호
									sSendMsg += model.getValue(sCsteNode+"["+iRowNo+"]/cstecnts") + "▦";			// 블럭내용
									sSendMsg += model.getValue(sCsteNode+"["+iRowNo+"]/hopper") + "▦";			// Hopper번호
									sSendMsg += "C" + "▩";
									socketcste.sendString(sSendMsg);										// 전송한다.
								}
							}
						}
							
						//-----------------------------
						//model.removeNodeset(sCsteNode);
													
						//----------
						// 소켓 닫기
						socketcste.close();					
					]]>
				</script>
				<!-- 소켓 close 이벤트 -->
				<script type="javascript" ev:event="OnClose(szID)">
					<![CDATA[
						isConnected = false;	// 접속 여부 false
					]]>
				</script>
			</object>
			<object id="socketslid" clsid="{81e9de7e-90be-4958-bbda-ac731c05aba8}" visibility="hidden" style="left:385px; top:40px; width:35px; height:30px; ">
				<!-- 소켓 받은 메시지 이벤트 -->
				<script type="javascript" ev:event="OnReceive(nDataLength, szID)">
					<![CDATA[
					]]>
				</script>
				<!-- 소켓 에러 이벤트 -->
				<script type="javascript" ev:event="OnError(lError, szMsg)">
					<![CDATA[
						alert("Error code = " + lError+"\nError Message : "+szMsg);
						socketslid.close();					// 소켓 닫기
						isConnected = false; 			// 접속 여부 false
					]]>
				</script>
				<!-- 소켓 연결 이벤트 -->
				<script type="javascript" ev:event="OnConnect(szID)">
					<![CDATA[
						var iMaxRowCnt = 0;
						var sCsteNode  = "/root/main/csteinfo/cstelist";
						var sSlidNode  = "/root/main/slidinfo/slidlist";
						var sMainNode  = "/root/main/acptspc/acptspclist";
						var iFindNo    = grd_cstelist.findRow("true", 1, 1, true, true);
						
						//--------------------------------------
						iMaxRowCnt = getNodesetCount(sSlidNode);
						for (var iRowNo=1; iRowNo <= iMaxRowCnt; iRowNo++) {
							
							if (model.getValue(sSlidNode+"["+iRowNo+"]/reprnt") == "true") {
								if (model.getValue(sSlidNode+"["+iRowNo+"]/statflagcd") == "-") {
									
//									sSendMsg  = "";
//									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/ptno") + "▦";			// 병리번호
//									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/dispptno") + "▦";			// 표시병리번호
//									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/spcacptseqno") + "▦";		// 검체일련번호
//									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/csteno") + "▦";			// 블럭번호
//									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/slidno") + "▦";			// 슬라이드번호
//									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/prtnblocnm") + "▦";		// 블럭내용
//									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/cstecnts") + "▦";			// 슬라이드내용
//									
//									//------------------
//									// 전송종료여부 설정
//									if (iRowNo == iMaxRowCnt) {
//										sSendMsg += "Y" + "▦";
//									} else {
//										sSendMsg += "N" + "▦";
//									}							
//									
//									//-------------------------------------------------------------------
//									//sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/relaptno") + "▦";			// 관련병리번호
//									
//									if (model.getValue("/root/init/prtflag") == "0") {
//										sSendMsg += "SM" + "▩";
//									} else {
//										sSendMsg += "SB" + "▩";
//									}
									sSendMsg  = "";
									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/ptno") + "▦";					// 병리번호
									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/dispptno") + "▦";				// 표시병리번호
									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/spcacptseqno") + "▦";			// 검체일련번호
									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/csteno") + "▦";					// 블럭번호
									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/slidno") + "▦";					// 슬라이드번호
									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/prtnblocnm") + "▦";				// 블럭내용
									sSendMsg += model.getValue(sSlidNode+"["+iRowNo+"]/cstecnts") + "▦";				// 슬라이드내용
									
									//------------------
									// 전송종료여부 설정
									if (iRowNo == iMaxRowCnt) {
										sSendMsg += "Y" + "▦";
									} else {
										sSendMsg += "N" + "▦";
									}							
									
									//--------------------------------------------------------------
									sSendMsg += model.getValue(sMainNode+"["+grd_spclist.row+"]/pid") + "▦";					// 환자번호
									sSendMsg += model.getValue(sMainNode+"["+grd_spclist.row+"]/patnm") + "▦";					// 환자명

									if (model.getValue("/root/init/prtflag") == "0") {
										sSendMsg += "SM" + "▩";
									} else {
										sSendMsg += "SB" + "▩";
									}
									
									//--------------------------
									socketslid.sendString(sSendMsg);											// 전송한다.
								}
							}
						}
													
						//----------
						// 소켓 닫기
						socketslid.close();					
					]]>
				</script>
				<!-- 소켓 close 이벤트 -->
				<script type="javascript" ev:event="OnClose(szID)">
					<![CDATA[
						isConnected = false;	// 접속 여부 false
					]]>
				</script>
			</object>
			<select1 id="combo2" ref="/root/init/blockind" navindex="19" appearance="minimal" style="left:740px; top:366px; width:90px; height:19px; ">
				<choices>
					<item>
						<label>CELL블럭</label>
						<value>0</value>
					</item>
					<item>
						<label>가상블럭</label>
						<value>1</value>
					</item>
				</choices>
				<script type="javascript" ev:event="xforms-value-changed">
					<![CDATA[
						fExeBlocKindChange();		
					]]>
				</script>
			</select1>
			<select1 id="cmb_caeqlist" ref="/root/init/eqcaseqno" appearance="minimal" style="left:879px; top:50px; width:134px; height:19px; ">
				<choices>
					<itemset nodeset="/root/main/eqinfo/caeqlist">
						<label ref="eqnm"/>
						<value ref="eqseqno"/>
					</itemset>
				</choices>
			</select1>
			<select1 id="cmb_slideqlist" ref="/root/init/eqslidseqno" appearance="minimal" style="left:858px; top:366px; width:134px; height:19px; ">
				<choices>
					<itemset nodeset="/root/main/eqinfo/slideqlist">
						<label ref="eqnm"/>
						<value ref="eqseqno"/>
					</itemset>
				</choices>
			</select1>
		</group>
		<group id="grp_btn" scroll="auto" style="left:0px; top:13px; width:1195px; height:27px; ">
			<line id="line17" class="line_6" style="x1:0px; y1:25; x2:1194px; y2:25; "/>
			<button id="btn_csteiss" class="btn6_letter8" navindex="22" style="left:0px; top:3; width:56px; height:22px; ">
				<caption>Cassette재발행</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fExeCsteIss("R");		
					]]>
				</script>
			</button>
			<button id="btn_slidiss" class="btn6_letter7" navindex="23" style="left:130px; top:3px; width:116px; height:22px; ">
				<caption>슬라이드재발행</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fExeSlidIss("R");		
					]]>
				</script>
			</button>
		</group>
	</xhtml:body>
</xhtml:html>