YNU_JEUS/app_home/himed/webapps/ast/healexamweb/xrw/SMAHA00700_처방관리.xrw

<?xml version="1.0" encoding="EUC-KR"?>
<!--
	* 제    목   : SMAHA00700.xrw
	* 설    명   : 처방관리
	* 설 계 자  : 손주연
	* 작 성 자  : 손주연
	* 작 성 일  : 2007.06.11
	* 수정이력 :
	* 기    타   :   
-->
<?xml-stylesheet href="../../../com/commonweb/css/common.css" type="text/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>처방관리</xhtml:title>
		<model id="model1">
			<instance id="instance1">
				<root xmlns="">
					<main>
						<histlst>
							<item>
								<orddd/>
								<cmpynm/>
								<pkgnm/>
								<statflag/>
								<cmpyflag/>
								<lastupdtrid/>
								<lastupdtdt/>
								<rsrvdd/>
								<rsrvno/>
								<pkgcd/>
								<healexamflag/>
								<healexamdetlflag/>
								<cmpycd/>
								<conseq/>
								<healexamplacecd/>
							</item>
						</histlst>
						<info>
							<patinfo>
								<item>
									<pid/>
									<rgstno1/>
									<rgstno2/>
									<hngnm/>
									<engnm/>
									<sex/>
									<age/>
									<brthdd/>
									<zipcd11/>
									<zipcd12/>
									<addr1/>
									<detladdr1/>
									<mpphon/>
									<telno/>
									<emailid/>
									<emailtype/>
									<healexampid/>
									<emailkind/>
									<zipcd21/>
									<zipcd22/>
									<addr2/>
									<detladdr2/>
									<psptno/>
									<brthareacnts/>
									<pidcretfg/>
									<zipcdseq1/>
									<zipcdseq2/>
									<clntgrde/>
									<patremcnts/>
									<choiflag/>
								</item>
							</patinfo>
							<ordinfo>
								<ordlst>
									<sel/>
									<dcflag/>
									<testflag/>
									<uncocd/>
									<testcd/>
									<testnm/>
									<dcynflag/>
									<scoreamt/>
									<prcpexecdeptcd/>
									<lastupdtrid/>
									<lastupdtdt/>
									<prcpdd/>
									<prcpno/>
									<m/>
									<rcptstat/>
									<calcscorcd/>
									<grupflag/>
									<execprcpuniqno/>
								</ordlst>
								<info>
									<acptdesc/>
									<dcamt/>
									<selamt/>
									<cmpyaddamt/>
									<addamt/>
								</info>
							</ordinfo>
						</info>
					</main>
					<send>
						<saveordcd/>
						<srchhealexamdetlflag/>
						<srchpid/>
						<srchhealexamflag/>
						<srchinstcd/>
						<srchstatflag/>
						<srchrsrvdd/>
						<srchrsrvno/>
						<srchorddd/>
						<srchhopedd/>
						<srchcretno/>
						<srchorddeptcd/>
						<srchchk/>
						<save>
							<healexamflag/>
							<healexamdetlflag/>
							<rsrvdd/>
							<rsrvno/>
							<pid/>
							<orddd/>
							<cretno/>
							<uncocd/>
							<disccd/>
							<orddeptcd/>
							<instcd/>
							<saveordlst/>
						</save>
						<saveinfo>
							<savelist/>
						</saveinfo>
					</send>
					<send1>
						<healexamflag/>
						<rsrvdd/>
						<rsrvno/>
						<testflag/>
						<testcd/>
						<cmpyflag/>
						<age/>
						<cmpycd/>
						<conseq/>
						<conhistseq/>
						<statflag/>
					</send1>
					<send2>
						<popchk/>
					</send2>
					<price>
						<dangainfo>
							<danga/>
						</dangainfo>
					</price>
					<init>
						<baseinfo>
							<uncocdlst>
							</uncocdlst>
							<clntgrdlst/>
							<rsrvflaglst/>
							<rsltcnstflaglst/>
							<choiflaglst/>
							<emaillst/>
							<hedetlflaglst/>
							<statlst/>
							<relacdlst/>
							<pamcdlst>
								<disccdlst>
									<item>
										<cd/>
										<nm/>
									</item>
								</disccdlst>
								<uncocdlst>
									<item>
										<cd/>
										<nm/>
									</item>
								</uncocdlst>
							</pamcdlst>
							<testflag/>
							<ordstatlst>
								<M0011/>
							</ordstatlst>
							<rcptstatlst/>
							<choiflaglst/>
							<examinfo/>
						</baseinfo>
						<dept_info>
							<initprcpexecdeptcd>
								<prcpexecdeptcdid/>
								<prcpexecdeptcdnm/>
							</initprcpexecdeptcd>
						</dept_info>
					</init>
					<hidden>
					</hidden>
					<temp>
						<patinfo>
							<item/>
						</patinfo>
						<templst/>
						<choiflagchangeyn/>
					</temp>
					<temp1>
						<test>
							<testcd/>
							<pkgcd/>
						</test>
					</temp1>
					<choitest/>
				</root>
			</instance>
			<bind id="bind_testcd" ref="/root/main/info/ordinfo/ordlst/testcd" readonly="../prcpno!=''"/>
			<bind id="bind_uncocd" ref="/root/main/info/ordinfo/ordlst/uncocd" readonly="../prcpno!=''"/>
			<bind id="bind_testflag" ref="/root/main/info/ordinfo/ordlst/testflag" readonly="../prcpno!=''"/>
			<bind id="bind_dc" ref="/root/main/info/ordinfo/ordlst/dcflag" readonly="../prcpno=''"/>
			<submission id="TRZBC00101"/>
			<submission id="TRAHA00003"/>
			<submission id="TRAHA00101" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/temp/patinfo"/>
			<submission id="TRAHA00104" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/init/baseinfo/pamcdlst"/>
			<submission id="TRAHA00106" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/main/histlst"/>
			<submission id="TRAHA00701" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/main/info/ordinfo"/>
			<submission id="TRAHA00702" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send1" replace="instance" resultref="/root/price"/>
			<submission id="TXAHA00701" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send/save" replace="instance" resultref="/root/hidden"/>
			<submission id="TXAHA00702" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send/saveinfo" replace="instance" resultref="/root/hidden"/>
			<submission id="TXAHA00703" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send/saveinfo" replace="instance" resultref="/root/hidden"/>
			<submission id="TXAHA02101" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/temp/rcptinfo/hidden"/>
			<submission id="TXAHA02102" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/temp/rcptinfo/hidden"/>
			<submission id="TRAHA02105" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/temp/rcptno_out"/>
			<submission id="TRAHA00013" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send/test" replace="instance" resultref="/root/tmp"/>
			<submission id="TXAHA04002" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/choitest"/>
			<submission id="TRAEB00205" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send/globalinstance" replace="instance" resultref="/root/init/dept_info"/>
			<submission id="TXAHA00105" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send/dope" replace="instance" resultref="/root/hidden"/>
		</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/dateHelper.js"/>
		<script type="javascript" src="../../../com/basiccodeweb/js/ZBC001.js"/>
		<script type="javascript" src="../../../ast/healexamweb/js/AHA001.js"/>
		<script type="javascript" src="../../../ast/healthexambaseweb/js/healcombolist2.js"/>
		<script type="javascript" ev:event="xforms-ready">
			<![CDATA[
				fInitBaseInfo();
				fInitOrdInfo(true);
				if(checkOpener()){
					var param_healexamdetlflag 	= opener.javascript.getParameter("SMAHA00700_PARAM1");
					var param_pid 						= opener.javascript.getParameter("SMAHA00700_PARAM2");
					if(param_healexamdetlflag != "" && param_pid != ""){
						model.setValue(cmb_srchhealexamdetlflag.attribute("ref") 	,	param_healexamdetlflag);
						ipt_pid.currentText 																=	param_pid;
						fGetPatInfo(2);
						btn_search.dispatch("DOMActivate");
					}
				}
				model.makeValue("/root/tmp/cho", rdo_choiflag.value);
				submit("TRAEB00205"); 		//시행부서 조회
				model.setfocus("grd_ordlst");
			]]>
		</script>
		<script type="javascript">
			<![CDATA[			
			var col_calcflag		= 3;
			var col_uncocd		= 4;
			var col_prcpcd		= 5;
			var col_prcpnm		= 6;
			var col_scoramt		= 8;
			var col_execdept	= 9;
						
/**=============================================================================================
* 기본정보 가져오기.
* 건진구분, 건진상태구분, 청구유형, 처방구분(P/A/S)을 가져온다.
*=============================================================================================*/	
			function fInitBaseInfo(){
				//건진상세구분 , 상태구분, 처방구분
			 	var vHealExamFg 	= fGetHealExamFlag();
			 	var sDetlFg 				= "";
			 	if(vHealExamFg == "C"){
					zbcfGetCodeList(new Array("A0069", "A0107", "A0117", "M0011", "P0030" , "A0116"),
												new Array("/root/init/baseinfo/hedetlflaglst"
																, "/root/init/baseinfo/statlst" 
																, "/root/init/baseinfo/testflag"
																, "/root/init/baseinfo/ordstatlst"
																, "/root/init/baseinfo/rcptstatlst"
																, "/root/init/baseinfo/choiflaglst"));
					sDetlFg = "/root/init/baseinfo/hedetlflaglst/A0069";
			 	}else{
					zbcfGetCodeList(new Array("A0070", "A0107", "A0117", "M0011", "P0030"),
												new Array("/root/init/baseinfo/hedetlflaglst"
																, "/root/init/baseinfo/statlst"
																, "/root/init/baseinfo/testflag"
																, "/root/init/baseinfo/ordstatlst"
																, "/root/init/baseinfo/rcptstatlst"));
					sDetlFg = "/root/init/baseinfo/hedetlflaglst/A0070";
			 	}
			 	model.resetInstanceNode("/root/init/baseinfo/examinfo");
			 	healGetCodeList( new Array("S100"), new Array("/root/init/baseinfo/examinfo"));
				submit("TRAHA00003");
				
				cmb_srchhealexamdetlflag.choices.itemset.attribute("nodeset") = sDetlFg;
				submit("TRZBC00101");
				
				model.setValue("/root/send/srchinstcd", getUserInfo("dutplceinstcd"));
				submit("TRAHA00104");
				
				var nodelist = instance1.selectNodes(sDetlFg);
				if(nodelist.length > 0){
					if(nodelist.length == 1){
						cmb_srchhealexamdetlflag.value = model.getValue(sDetlFg + "/cdid");
					}else{
						cmb_srchhealexamdetlflag.value = model.getValue(sDetlFg + "[1]/cdid");
					}
				}
				var vHealExamDetlFg 	= fGetHealExamDetlFlag();
				var sDetlFg 					= "/root/init/baseinfo/hedetlflaglst/A0069";
				var nodelist = instance1.selectNodes(sDetlFg);
				if(nodelist.length > 0){
					cmb_srchhealexamdetlflag.value =  vHealExamDetlFg;
				}
				model.setFocus("ipt_pid");
				model.refresh();
			}
			
/**=============================================================================================
* 처방 초기화
*bAll : 전체 초기화(true)_건진이력포함, 처방정보만 초기화(false)
*=============================================================================================*/			
			function fInitOrdInfo(bAll){
				if(bAll){
					model.removeNodeset("/root/main/histlst/item");
				}
				model.setValue(tar_desc.attribute("ref"), "");
				model.resetInstanceNode("/root/main/ordinfo");
				model.removeNodeset(grd_ordlst.nodeset);
				model.refresh();
			}
			
/**=============================================================================================
* 선택검사변경
*=============================================================================================*/						
			function fChangeCode(choi){
				model.makeValue("/root/temp/save/choiflag/choiValue", "");

				if(model.getValue("/root/tmp/cho") != rdo_choiflag.value){
					model.makeValue("/root/temp/choiflagchangeyn", "N");
					var cnt = grd_ordlst.rows;  	
					//grd_ordlst.clearStatus();
					//testchance(rdo_choiflag.value);
					model.makeValue("/root/temp/save/choiflag/choiValue", rdo_choiflag.value);
					var stestcd 		= model.getValue("//root/init/baseinfo/examinfo/S100[cdid = " + rdo_choiflag.value +"]/cdid");
					var stestnm 	= model.getValue("//root/init/baseinfo/examinfo/S100[cdid = " + rdo_choiflag.value +"]/cdnm");
					var sexcucd 	= model.getValue("//root/init/baseinfo/examinfo/S100[cdid = " + rdo_choiflag.value +"]/cmt");
					if(sexcucd != ""){
						/* 선택검사 단가 */
						/*
						model.removeNodeset("/root/send1");
						model.makeValue("/root/send1/healexamflag"	, model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/healexamflag"));
						model.makeValue("/root/send1/rsrvdd"				, model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/rsrvdd"));
						model.makeValue("/root/send1/rsrvno"				, model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/rsrvno"));
						model.makeValue("/root/send1/testflag"				, "S");
						model.makeValue("/root/send1/testcd"				, stestcd);
						model.makeValue("/root/send1/cmpyflag"			, model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/cmpyflag"));
						model.makeValue("/root/send1/age"					, model.getValue("/root/main/info/patinfo/item/age"));
						model.makeValue("/root/send1/cmpycd"			, model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/cmpycd"));
						model.makeValue("/root/send1/conseq"				, model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/conseq"));
						model.makeValue("/root/send1/conhistseq"		, model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/conhistseq"));
						model.makeValue("/root/send1/statflag"				, model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/statflag"));
						submit("TRAHA00702");
						*/
						grd_ordlst.addRow();
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("sel")) 						= "Y";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("dcflag")) 					= "N";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testflag")) 					= "S";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("uncocd")) 				= "V01";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testcd")) 					= sexcucd;
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testnm")) 					= stestnm;
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("dcynflag")) 				= "";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("scoreamt")) 				= model.getValue("/root/price/dangainfo/danga");
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpexecdeptcd"))	= "";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("lastupdtrid"))				= "";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("lastupdtdt"))				= "";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpdd"))					= "";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpno"))					= "";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("m")) 							= "";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("rcptstat")) 					= "";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("calcscorcd")) 			= sexcucd;
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("grupflag")) 				= "S";
						grd_ordlst.rowStatus(cnt) 																= 3;
					}
					
					/* function 종료 - 주석처리
					if (rdo_choiflag.value=="01"){
						model.makeValue("/root/temp/save/choiflag/choiValue" , "01")	;
					}
					if (rdo_choiflag.value=="02"){
						grd_ordlst.addRow();
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("sel"))="Y";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("dcflag"))="N";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testflag"))="S";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("uncocd"))="V01";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testcd"))="RSHA010G";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testnm"))="위투시";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("dcynflag"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("scoreamt"))="64114";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpexecdeptcd"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("lastupdtrid"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("lastupdtdt"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpdd"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpno"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("m"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("rcptstat"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("calcscorcd"))="RSHA010G";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("grupflag"))="S";

						grd_ordlst.rowStatus(cnt) = 3;
						model.makeValue("/root/temp/save/choiflag/choiValue" , "02")	;
//						grd_ordlst.gridToInstance();
//						grd_ordlst.rebuild();
					}					
					if (rdo_choiflag.value=="03"){
						grd_ordlst.addRow();
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("sel"))="Y";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("dcflag"))="N";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testflag"))="S";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("uncocd"))="V01";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testcd"))="VHGE761101G";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testnm"))="위내시경";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("dcynflag"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("scoreamt"))="64114";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpexecdeptcd"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("lastupdtrid"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("lastupdtdt"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpdd"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpno"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("m"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("rcptstat"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("calcscorcd"))="VHGE761101G";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("grupflag"))="G";
						model.makeValue("/root/temp/save/choiflag/choiValue" , "03")	;
						grd_ordlst.rowStatus(cnt) = 3;
					}					
					if (rdo_choiflag.value=="04"){
						grd_ordlst.addRow();
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("sel"))="Y";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("dcflag"))="N";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testflag"))="A";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("uncocd"))="V01";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testcd"))="VHGE761103G";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("testnm"))="수면내시경";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("dcynflag"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("scoreamt"))="64114";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpexecdeptcd"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("lastupdtrid"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("lastupdtdt"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpdd"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("prcpno"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("m"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("rcptstat"))="";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("calcscorcd"))="VHGE761103G";
						grd_ordlst.valueMatrix(cnt ,grd_ordlst.colRef("grupflag"))="G";
						model.makeValue("/root/temp/save/choiflag/choiValue" , "04")	;
						grd_ordlst.rowStatus(cnt) = 3;
					}
//					model.refresh()
//					grd_ordlst.rebuild();
					*/
				}
			}
			
/**=============================================================================================
* 선택검사변경
*=============================================================================================*/						
			function testchance(choi){	/* 사용안함 */
				var spkgcd = "";
			/*	if (model.getValue("root/tmp/cho") == "02"){
					spkgcd = "RSHA010G";
				}else if (model.getValue("root/tmp/cho") == "03"){
					spkgcd = "VHGE761101G";
				}else if (model.getValue("root/tmp/cho") == "04"){
					spkgcd = "VHGE761103G";
				}else{
					return;
				}
				spkgcd = "VHGE761103G";
				for (var i = 1; i < grd_ordlst.rows; i ++){
					if (model.getValue("/root/main/info/ordinfo/ordlst[" + i + "]/pkgcd") == spkgcd){
						grd_ordlst.valueMatrix(i,grd_ordlst.colRef("sel"))="Y";
						grd_ordlst.valueMatrix(i,grd_ordlst.colRef("dcflag"))="Y";																
						grd_ordlst.valueMatrix(i ,grd_ordlst.colRef("m"))="d";
						grd_ordlst.rowStatus(i) = 4;		
					}
				}*/
				
				/* 사용안함 (수정일자 : 20090406) 
				var cnt = getNodesetCount("/root/choitest/test/choitest");  
				var grcnt = grd_ordlst.rows;  				
//				if (choi=="01"){
					for(var i=0;i<=cnt;i++){
						for(var grdi=0;grdi<=grcnt;grdi++){
							if(grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("testcd"))==model.getValue("/root/choitest/test/choitest["+i+"]/testcd")){
								grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("sel"))="Y";
								grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("dcflag"))="Y";																
								grd_ordlst.valueMatrix(grdi ,grd_ordlst.colRef("m"))="d";						
								grd_ordlst.rowStatus(grdi) = 4;										
//								grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("m"))="u";	
									break;	
							}
						}
					}
//				}

				
				if(choi=="02"){
					for(var i=0;i<=cnt;i++){
						if (model.getValue("/root/choitest/test/choitest["+i+"]/pkgcd")!="RSHA010G"){
							for(var grdi=0;grdi<=grcnt;grdi++){
								if(grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("testcd"))==model.getValue("/root/choitest/test/choitest["+i+"]/testcd")){
									grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("sel"))="Y";
								grd_ordlst.rowStatus(grdi) = 4;										
								grd_ordlst.valueMatrix(grdi ,grd_ordlst.colRef("m"))="d";	
									
									break;
								}
								
							}
						}
					}
					
				}
				
				if(choi=="03"){
					for(var i=0;i<=cnt;i++){
						if (model.getValue("/root/choitest/test/choitest["+i+"]/pkgcd")!="VHGE761101G"){
							for(var grdi=0;grdi<=grcnt;grdi++){
								if(grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("testcd"))==model.getValue("/root/choitest/test/choitest["+i+"]/testcd")){
									grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("sel"))="Y";
								grd_ordlst.rowStatus(grdi) = 4;										
								grd_ordlst.valueMatrix(grdi ,grd_ordlst.colRef("m"))="d";	
									
									break;	
								}
							}
						}
					}
				}
				
				if(choi=="04"){
					for(var i=0;i<=cnt;i++){
						if (model.getValue("/root/choitest/test/choitest["+i+"]/pkgcd")!="VHGE761103G"){
							for(var grdi=0;grdi<=grcnt;grdi++){
								if(grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("testcd"))==model.getValue("/root/choitest/test/choitest["+i+"]/testcd")){
									grd_ordlst.valueMatrix(grdi,grd_ordlst.colRef("sel"))="Y";
								grd_ordlst.rowStatus(grdi) = 4;										
								grd_ordlst.valueMatrix(grdi ,grd_ordlst.colRef("m"))="d";	
									
									break;	
								}
							}
						}
					}
				}
				*/
			}
/**=============================================================================================
@desc	:  건진접수내역가져오기
@param	: 건진구분,  등록번호, 진료일자
*=============================================================================================*/			
			function fGetHistList(){
				var vPid = model.getValue("/root/main/info/patinfo/item/pid");
				if(vPid == ""){
					messageBox("환자ID를 입력하세요",  "E999");
					model.setFocus("ipt_pid"); 
					return ;
				}
				fInitOrdInfo(false);  
				model.setValue("/root/send/srchhealexamflag"	, fGetHealExamFlag());
				model.setValue("/root/send/srchstatflag" 			, "C");
				model.setValue("/root/send/srchpid" 					, vPid);
				//openLoadingBar("건진 접수내역...") ;//처리중 화면을 오픈한다.         
			 	submit("TRAHA00106");
				//closeLoadingBar() ;//처리중 화면을 close한다.
			}
			
/**=============================================================================================
* 건진처방내역가져오기
* 건진구분,  등록번호, 진료일자
*=============================================================================================*/	
			function fGetOrdInfo(){
				model.removeNodeset(grd_ordlst.nodeset );
				var idx = grd_histlst.row;
				var idxs = grd_histlst.rows;
				if(idx < 1){
					if(idxs > 1){
						grd_histlst.row = 1;
						idx = grd_histlst.row;
					}else{
						messageBox("건진이력항목을 선택하세요",  "E999");
						return ;
					}
				}
				
				var statflag = model.getValue("/root/main/histlst/item[" + idx + "]/statflag");
				model.setValue("/root/send/srchhealexamflag"	, fGetHealExamFlag()); 																	//건진구분
				model.setValue("/root/send/srchpid"					, model.getValue(ipt_pid.attribute("ref"))); 										//등록번호
				model.setValue("/root/send/srchrsrvdd"				, model.getValue(grd_histlst.nodeset + "[" + idx + "]/rsrvdd")); 		//건진예약등록일자
				model.setValue("/root/send/srchrsrvno"				, model.getValue(grd_histlst.nodeset + "[" + idx + "]/rsrvno")); 		//건진예약등록번호

				if (statflag == "C"){
					model.setValue("/root/send/srchorddd"			, "");
					model.setValue("/root/send/srchhopedd"		, model.getValue(grd_histlst.nodeset + "[" + idx + "]/orddd"));  		//진료일자
				}else{
					model.setValue("/root/send/srchorddd"			, model.getValue(grd_histlst.nodeset + "[" + idx + "]/orddd"));  		//진료일자
				}
				model.setValue("/root/send/srchcretno"				, model.getValue(grd_histlst.nodeset + "[" + idx + "]/cretno")); 		//원무생성번호
				model.setValue("/root/send/srchorddeptcd"		, model.getValue(grd_histlst.nodeset + "[" + idx + "]/orddeptcd")); 	//진료과-처방발생부서
				model.makeValue("/root/send/srchorddrid"		, model.getValue(grd_histlst.nodeset + "[" + idx + "]/orddrid")); 		//진료과-처방의
				model.makeValue("/root/send/srchage"				, model.getValue("/root/main/info/patinfo/item/age"));						//나이
				model.makeValue("/root/send/sex"						, model.getValue("/root/main/info/patinfo/item/sex"));						//성별
				model.makeValue("/root/send/hopedd"				, model.getValue(grd_histlst.nodeset + "[" + idx + "]/hopedd"));  		//진료일자
				model.makeValue("/root/send/cmpyflag"				, model.getValue(grd_histlst.nodeset + "[" + idx + "]/cmpyflag"));  	//단체구분
				
				submit("TRAHA00701");	
				//grd_ordlst.sort(1, 3, grd_ordlst.rows - 1, 5)  = "desc";
				//grd_ordlst.gridToInstance();
				
				if(statflag =="E" || statflag =="G" || statflag =="H" || statflag =="I"){
					btn_seladd.disabled = false;
					btn_save.disabled = false;
					for (var i = 1; i < grd_ordlst.rows; i ++){
						grd_ordlst.isReadOnly(i, 1) = false;
						grd_ordlst.isReadOnly(i, 2) = false;
					}
				}else{
					btn_seladd.disabled = true;
					btn_save.disabled = true;
					/*
					var k = 0;
					for (var i = 1; i < grd_ordlst.rows; i ++){
						grd_ordlst.isReadOnly(i, 1) = true;
						if (model.getValue("/root/main/info/ordinfo/ordlst[" + i + "]/rcptstat") == "000"){
							grd_ordlst.isReadOnly(i, 2) = false;
							k = k + 1;
						}else{
							grd_ordlst.isReadOnly(i, 2) = true;
						}
					}
					if (k == 0){
						btn_save.disabled = true;
					}else{
						btn_save.disabled = false;
					}
					*/
				}
				
				var choiflag = 	model.getValue("/root/main/info/ordinfo/info/choiflag");
				model.setValue("/root/main/info/patinfo/item/choiflag", choiflag);
				rdo_choiflag.refresh();
				/*
				for (var j = 1; j < grd_ordlst.rows; j ++){
					grd_ordlst.isReadOnly(j, 2) = false;
				}
				*/
				
				/* 수납처리 버튼 비활성화 - 2012.09.19
				button1.visible = false;
				var icnt = 0;
				if(statflag =="E" || statflag =="G" || statflag =="H" || statflag =="I"){
					for (var i = 1; i < grd_ordlst.rows; i ++){
						if (model.getValue("/root/main/info/ordinfo/ordlst[" + i + "]/rcptstat") == "000"){
							icnt = icnt + 1;
						}
					}
					if (icnt > 0){
						button1.visible = true;
					}else{
						button1.visible = false;
					}
				}
				*/
				model.refresh();
			}                        
/**=============================================================================================
* 추가검사 및 선택검사 금액 계산 
* 청구방법/처방구분/삭제여부 에 따른 금액 계산
*=============================================================================================*/	 
			function fCalcOrdAmt(){
				var cnt = grd_ordlst.rows;
				if( cnt < 1) return ;
				
				var vDcAmt 	= model.getValue("/root/main/info/ordinfo/info/dcamt");
				if( vDcAmt == "" ) vDcAmt = "0";
				vDcAmt = parseInt(vDcAmt);
				var vAddAmt 	= model.getValue("/root/main/info/ordinfo/info/addamt");
				if( vAddAmt == "" ) vAddAmt = "0";
				vAddAmt = parseInt(vAddAmt);
				var vSelAmt 	= model.getValue("/root/main/info/ordinfo/info/selamt");
				if( vSelAmt == "" ) vSelAmt = "0";
				vSelAmt = parseInt(vSelAmt);
				var vCmpyAmt 	= model.getValue("/root/main/info/ordinfo/info/cmpyaddamt");
				if( vCmpyAmt == "" ) vCmpyAmt = "0";
				vCmpyAmt = parseInt(vCmpyAmt);
				
				var vTmpDc  	= 0;
				var vTmpSel  	= 0;
				var vTmpAdd  	= 0;
				var vTmpCmpy	= 0;
				var vTmp		= "";
				var vTmpAmt   = 0;
				for ( var i = 1; i <= cnt ; i++){
					if( grd_ordlst.rowstatus(i) == 4 ) //dc
					{
						vTmp = grd_ordlst.valueMatrix(i, col_scoramt );
						if( vTmp == "" ) vTmp = "0";
						vTmpAmt	= parseInt(vTmp);
						vTmpDc += vTmpAmt;
						vTmp = grd_ordlst.valueMatrix(i, col_calcflag ) ; 
						if( vTmp = "A" ){
							vTmp = grd_ordlst.valueMatrix(i, col_uncocd ) ; 
							if( vTmp== "V01" ) //개인 
							{
								vTmpAdd -= vTmpAmt;
							}
							else
							if( (vTmp== "V02" )  || (vTmp == "V03" ) )//단체 , 개인/단체
							{
								vTmpCmpy -= vTmpAmt;
							}
						}
						else
						if( vTmp == "S" ){
							vTmpSel -= vTmpAmt ;
						}
						
					}
					else
					if( grd_ordlst.rowstatus(i) == 1 ) //insert 
					{
						vTmp = grd_ordlst.valueMatrix(i, col_calcflag ) ; 
						if( vTmp = "A" ){
							vTmp = grd_ordlst.valueMatrix(i, col_uncocd ) ; 
							if( vTmp== "V01" ) //개인 
							{
								vTmp = grd_ordlst.valueMatrix(i, col_scoramt );
								if( vTmp == "" ) vTmp = "0";
								vTmpAdd += parseInt(vTmp);
							}
							else
							if( (vTmp== "V02" )  || (vTmp == "V03" ) )//단체 , 개인/단체
							{
								vTmp = grd_ordlst.valueMatrix(i, col_scoramt );
								if( vTmp == "" ) vTmp = "0";
								vTmpCmpy += parseInt(vTmp);
							}
						}
						else
						if( vTmp = "S" ){
							vTmp = grd_ordlst.valueMatrix(i, col_scoramt );
							if( vTmp == "" ) vTmp = "0";
							vTmpSel += parseInt(vTmp);
						}
					}
				}
				
				model.setValue("/root/main/info/ordinfo/info/dcamt" 	, vDcAmt 	+ vTmpDc);
				model.setValue("/root/main/info/ordinfo/info/addamt"	, vAddAmt	+ vTmpAdd);
				model.setValue("/root/main/info/ordinfo/info/selamt"	, vSelAmt 	+ vTmpSel);
				model.setValue("/root/main/info/ordinfo/info/cmpyaddamt", vCmpyAmt + vTmpCmpy); 
				opt_dcamt.refresh();
				opt_selamt.refresh();
				opt_addamt.refresh();
				opt_cmpyaddamt.refresh();
			}             

/**=============================================================================================
* 처방저장 
*=============================================================================================*/			
		function fSavePrcp(){
			if(messageBox("처방내역을 ", "Q002") != 6) return;
			
			if(grd_histlst.row < 1){
				messageBox("건진이력을 ", "C002");
				return;
			}
			
			var nodeRcptstatList = instance1.selectNodes(grd_ordlst.nodeset + "[sel='Y' and dcflag = 'Y' and rcptstat > '230']");
			if(nodeRcptstatList.length > 0){
				messageBox("D/C처리 가능한 처방상태가 아닙니다.", "E999");
				return;
			}
			var nodeList = instance1.selectNodes(grd_ordlst.nodeset + "[sel='Y']");
			var updData = getGridUpdateData(grd_ordlst);
			if((nodeList.length  < 1) || (updData == "")){
				messageBox("저장할 데이터가 존재하지 않습니다.", "E999");
				return;
			}
			model.resetInstanceNode("/root/send/save");
			model.makeNode("/root/send/save/saveordlst");
			model.setValue("/root/send/save/saveordlst", updData);
			
			//건진일자 => 진료일자가 오늘일자가 아닐경우 막아야 함...
			//해당 부분 고민 필요함.  강남만 확인 한 사항이므로...
			/*
			var cur_Date = getCurrentDate();
			if(model.getValue(sNode 	+ "orddd") != cur_Date){
				messageBox("당일 건진 내역이 아닙니다.", "E999");
				return;
			}
			*/
			model.makeNode("/root/send/save/healexamflag");
			model.makeNode("/root/send/save/healexamdetlflag");
			model.makeNode("/root/send/save/rsrvdd");
			model.makeNode("/root/send/save/rsrvno");
			model.makeNode("/root/send/save/pid");
			model.makeNode("/root/send/save/orddd");
			model.makeNode("/root/send/save/cretno");
			model.makeNode("/root/send/save/orddeptcd");
			model.makeNode("/root/send/save/orddrid");
			model.makeNode("/root/send/save/uncocd");
			model.makeNode("/root/send/save/disccd");
			model.makeNode("/root/send/save/instcd");
			model.makeNode("/root/send/save/sex");
			model.makeNode("/root/send/save/srchchk");
			model.makeNode("/root/send/save/hopedd");
			model.makeNode("/root/send/save/healexamplacecd");
			
			var sNode = grd_histlst.nodeset + "[" + grd_histlst.row + "]/";
			model.setValue("/root/send/save/healexamflag"							, fGetHealExamFlag());
			model.setValue("/root/send/save/healexamdetlflag"	 					, model.getValue(cmb_srchhealexamdetlflag.attribute("ref")));
			model.setValue("/root/send/save/rsrvdd"										, model.getValue(sNode + "rsrvdd") );
			model.setValue("/root/send/save/rsrvno"										, model.getValue(sNode + "rsrvno"));
			model.setValue("/root/send/save/pid"											, model.getValue(sNode + "pid"));
			model.setValue("/root/send/save/orddd"										, model.getValue(sNode + "orddd"));
			model.setValue("/root/send/save/cretno"										, model.getValue(sNode + "cretno"));
			model.setValue("/root/send/save/orddeptcd"									, model.getValue(sNode + "orddeptcd"));
			model.setValue("/root/send/save/orddrid"										, model.getValue(sNode + "orddrid"));
			model.setValue("/root/send/save/uncocd"										, model.getValue(sNode + "uncocd"));
			model.setValue("/root/send/save/disccd"										, model.getValue(sNode + "disccd"));
			model.setValue("/root/send/save/instcd"										, getUserInfo("dutplceinstcd"));
			model.setValue("/root/send/save/sex"											, model.getValue("/root/main/info/patinfo/item/sex"));
			model.setValue("/root/send/save/srchchk"									, model.getValue("/root/send/srchchk") );
			model.setValue("/root/send/save/hopedd"										, model.getValue(sNode + "hopedd"));
			model.setValue("/root/send/save/healexamplacecd"						, model.getValue(sNode + "healexamplacecd"));
			//패키지내 선택검사 변경 여부 및 값
			model.makeValue("/root/send/save/choiflag/choiflagchangeyn"	, model.getValue("/root/temp/choiflagchangeyn"));
			model.makeValue("/root/send/save/choiflag/choiflag"					, model.getValue("/root/main/info/patinfo/item/choiflag"));
			model.makeValue("/root/send/save/choiflag/choiValue"		 		, model.getValue("/root/temp/save/choiflag/choiValue"));
			
//			var ret = submit("TXAHA00701"); 		//처방저장
//			if(ret){
	
			//처방저장
			if(submit("TXAHA00701")){
				//처방 저장 후 수납창 팝업되도록 수정
				ahafOpenRcpt(model.getValue("/root/send/save/healexamflag")
													, model.getValue("/root/send/save/rsrvdd")
													, model.getValue("/root/send/save/rsrvno")
													, model.getValue("/root/send/save/pid")
													, model.getValue(sNode + "rcptstat")
													, model.getValue("/root/send/save/orddd"));
			}
			
			/* 처방 저장 후 수납창 팝업되도록 수정에 따른 주석 처리 - 2012.09.19
			var statflag = model.getValue("/root/main/histlst/item[" + idx + "]/statflag");
			if(statflag == "C"){
				return;
			}
			
			var amtCheck = "1";
			for(i=0; i<=grd_ordlst.rows; i++){
				if((grd_ordlst.valueMatrix(i+1 , grd_ordlst.colRef("dcflag")) == "Y") && (grd_ordlst.valueMatrix(i+1, grd_ordlst.colRef("testflag")) != "P")){
					amtCheck = "2";
					break;
				}
				if((grd_ordlst.valueMatrix(i+1 , grd_ordlst.colRef("sel")) == "Y") && (grd_ordlst.valueMatrix(i+1, grd_ordlst.colRef("testflag")) == "A")){
					amtCheck = "2";
					break;
				}
			}
			
			//수면위내시경 상태가 변경이 될경우는 수납창을 뛰워서 환불이든 추가검사금액이든 받아야 한다
			if(model.getValue("/root/tmp/cho") == "04"){
				amtCheck="2"
			}			
			if(rdo_choiflag.value=="04"){
				amtCheck="2"
			}
			amtCheck = "2";
			
			//수가에 반영이 돼지 않는 항목이라면 수납화면을 뛰우지 않는다
			if(amtCheck == "2"){
				if(ret == true ){
					//재계산
					model.makeNode("/root/send/srchjobflag");
					model.makeNode("/root/send/srchrcptdd");
					model.makeNode("/root/send/srchrcptno");
					model.makeNode("/root/send/srchrcptseqno");
//					ret =  fCalcAmt("RCPT"
//								, model.getValue("/root/send/save/healexamflag")
//								, model.getValue("/root/send/save/rsrvdd")
//								, model.getValue("/root/send/save/rsrvno")
//								, model.getValue("/root/send/save/pid")
//								, model.getValue("/root/send/save/instcd"));
					if(ret  == 1){
						if(model.getValue("/root/send2/popchk") == "Y"){
							//ahafRcptAmt("RCPT");
							//20100727 JHP 수납조회 기준일자를 orddd에서 hopedd로 변경함.
							ahafOpenRcpt(model.getValue("/root/send/save/healexamflag")
													, model.getValue("/root/send/save/rsrvdd")
													, model.getValue("/root/send/save/rsrvno")
													, model.getValue("/root/send/save/pid")
													, model.getValue(sNode + "rcptstat")
													, model.getValue("/root/send/save/hopedd"));
						}
					}
//					if( ret  == 1){
//						//수납
//						ahafRcptAmt("RCPT"
//								, model.getValue("/root/send/save/rsrvdd")
//								, model.getValue("/root/send/save/rsrvno")
//								, model.getValue("/root/send/save/pid")
//								, model.getValue("/root/send/save/orddd")
//								, model.getValue(sNode 	+ "rcptstat") 
//								, "/root/temp/rcptinfo/hidden/opmi_out" ) 
//					}
				}
			}else{
				messageBox("수납 되었습니다.", "E999");
			}
			*/
		}
		
/**
* 건진내역 계산
건진구분	:srchhealexamflag 
예약일자	:srchrsrvdd 
예약번호	:srchrsrvno 
등록번호	:srchpid 
기관코드	:srchinstcd 
*/		function fCalcAmt(vJobFlag, vHealFg, vRsrvDD, vRsrvNo, vPid, vInstcd ){ 
			model.makeNode("/root/send/srchjobflag"	);
			model.makeNode("/root/send/srchrcptdd"	);
			model.makeNode("/root/send/srchrcptno"	);
			model.makeNode("/root/send/srchrcptseqno");
			var ret = -1; 
			if( vHealFg == "" ) return  ret;
			model.setValue("/root/send/srchhealexamflag", vHealFg );
			 
			if( vPid == "" ) return ret;
			model.setValue("/root/send/srchpid", vPid );
			 
			if( vRsrvDD== "" ) return ret;
			model.setValue("/root/send/srchrsrvdd", vRsrvDD );
			 
			model.setValue("/root/send/srchrsrvno"	, vRsrvNo );
			model.setValue("/root/send/srchinstcd"	, getUserInfo("dutplceinstcd"));

			model.setValue("/root/send/srchjobflag"		,vJobFlag);
			var sNd = "/root/temp/rcptinfo/hidden/opmi_out";
			model.resetInstanceNode(sNd);
			sNd = sNd + "/";
			
			//openLoadingBar("수납예상내역 계산 중입니다..") ;//처리중 화면을 오픈한다.                                                                                                                               
			if( submit("TXAHA02101") == true ){ 
				model.setValue(opt_addamt.attribute("ref")				, model.getValue( sNd + "opmi_addexamamt")); 	//추가검사금액
				model.setValue(opt_cmpyaddamt.attribute("ref")		, model.getValue( sNd + "opmi_cmpyamt")); 		//단체부담금
				model.setValue(opt_dcamt.attribute("ref")					, model.getValue( sNd + "opmi_rcptamt")); 
				model.refresh();
				ret = 1;
			}    
			//closeLoadingBar() ;//처리중 화면을 close한다.        
			return ret;                                    
		}	 
/*****************************************************************************************************************************************************
* 추가한 처방코드의 중복 체크		
*****************************************************************************************************************************************************/
		function fDupCheck(vGrdObj , vTestCdCol ) {
			var chk_idx = vGrdObj.rows - 1;
			var vDesTestcd = vGrdObj.valueMatrix(chk_idx , vTestCdCol );			
			for( var  i = 1 ; i < chk_idx ; i++ ){
				vTestcd = model.getValue(vGrdObj.nodeSet + "[" + i + "]/testcd" );
				vTestnm = model.getValue(vGrdObj.nodeSet + "[" + i + "]/testnm" );
				if(vDesTestcd == vTestcd)	{
					if( messageBox("중복되는 검사코드[" + vTestcd + " - " + vTestnm  +"] 를 추가 ", "S001") != 6 ){
						vGrdObj.deleteRow(chk_idx);						
					}
					break;
				}				
			}
		}
		
		function GridTest(){
			model.removeNodeset("/root/temp1/test/choitest");
			var choiflag = 	model.getValue("/root/main/info/ordinfo/info/choiflag");
			var spkgcd = "";
			spkgcd = model.getValue("//root/init/baseinfo/examinfo/S100[cdid = " + choiflag +"]/cmt");
			/*
			if (choiflag == "02"){
				spkgcd = "RSHA010G";
			}else if (choiflag == "03"){
				spkgcd = "VHGE761101G";
			}else if (choiflag == "04"){
				spkgcd = "VHGE761103G";
			}
			*/
			//alert(choiflag + "==" + spkgcd);
			copyNodesetType("/root/temp1/test", "/root/choitest/test/choitest[pkgcd='"+spkgcd+"']");
			//copyNodesetType("/root/temp1/test/choitest", "/root/choitest/test/choitest", "replace");
			model.makeValue("/root/tmp/cho",rdo_choiflag.value) ;
			/*
			for (var j = 1; j < grd_ordlst.rows; j ++){
				grd_ordlst.isReadOnly(j, 2) = false;
			}
			*/
			model.refresh();

		}
		function fPrcpDanga(){
			model.removeNodeset("/root/send1");
			model.makeValue("/root/send1/healexamflag", model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/healexamflag"));
			model.makeValue("/root/send1/rsrvdd", model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/rsrvdd"));
			model.makeValue("/root/send1/rsrvno", model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/rsrvno"));
			model.makeValue("/root/send1/testflag", model.getValue("/root/main/info/ordinfo/ordlst[" + grd_ordlst.row + "]/testflag"));
			model.makeValue("/root/send1/testcd", model.getValue("/root/main/info/ordinfo/ordlst[" + grd_ordlst.row + "]/testcd"));
			model.makeValue("/root/send1/cmpyflag", model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/cmpyflag"));
			model.makeValue("/root/send1/age", model.getValue("/root/main/info/patinfo/item/age"));
			model.makeValue("/root/send1/cmpycd", model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/cmpycd"));
			model.makeValue("/root/send1/conseq", model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/conseq"));
			model.makeValue("/root/send1/conhistseq", model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/conhistseq"));
			model.makeValue("/root/send1/statflag", model.getValue("/root/main/histlst/item[" + grd_histlst.row + "]/statflag"));
			
			//2015/10/26 이정택 추가
			model.makeValue("/root/send1/forgneryn", opener.javascript.getParameter("SMAHA00700_PARAM3")); // 외국인 여부
			model.makeValue("/root/send1/agencyrate", opener.javascript.getParameter("SMAHA00700_PARAM4")); // MOU요율
			//2015/10/26 이정택 추가
			
			submit("TRAHA00702");
			var suncocd = model.getValue("/root/main/info/ordinfo/ordlst[" + grd_ordlst.row + "]/scoreamt");
			model.makeValue("/root/main/info/ordinfo/ordlst[" + grd_ordlst.row + "]/scoreamt", model.getValue("/root/price/dangainfo/danga"));
			model.refresh();
		}
		
		function fDope(){
			model.makeNode("/root/send/dope");
			model.makeValue("/root/send/dope/instcd"		, model.getValue("/root/send/srchinstcd"));
			model.makeValue("/root/send/dope/pid"			, model.getValue("/root/send/srchpid"));
			model.makeValue("/root/send/dope/orddd"		, model.getValue("/root/send/srchorddd"));
			model.makeValue("/root/send/dope/cretno"		, model.getValue("/root/send/srchcretno"));
			model.makeValue("/root/send/dope/orddrid"		, model.getValue("/root/send/srchorddrid"));
			model.makeValue("/root/send/dope/orddeptcd"	, model.getValue("/root/send/srchorddeptcd"));
			submit("TXAHA00105", false);
		}
		
		]]>
		</script>
	</xhtml:head>
	<xhtml:body guideline="1,1195;" style="margin-left:8; margin-top:0; margin-right:8; margin-bottom:0; ">
		<group id="grp_tle" style="left:0px; top:0px; width:1195px; height:13px; ">
			<caption id="caption6" class="tit_1" style="left:0px; top:0px; width:149px; height:14px; ">처방 관리</caption>
		</group>
		<group id="grp_biz" scroll="auto" style="left:0px; top:13px; width:1195px; height:744px; ">
			<output id="opt_dcamt" ref="/root/main/info/ordinfo/info/dcamt" class="output_fix" format="#,###" style="left:1075px; top:76px; width:116px; height:19px; text-align:right; "/>
			<output id="opt_cmpyaddamt" ref="/root/main/info/ordinfo/info/cmpyaddamt" class="output_fix" format="#,###" style="left:739px; top:76px; width:94px; height:19px; text-align:right; "/>
			<caption id="caption59" class="cell_1" style="left:460px; top:75px; width:89px; height:23px; vertical-align:middle; ">추가처방(개인)</caption>
			<caption id="caption5" class="cell_1" style="left:1013px; top:75px; width:59px; height:23px; vertical-align:middle; ">반환금액</caption>
			<output id="opt_addamt" ref="/root/main/info/ordinfo/info/addamt" class="output_fix" format="#,###" style="left:551px; top:76px; width:94px; height:19px; text-align:right; "/>
			<caption id="caption55" class="cell_1" style="left:648px; top:75px; width:89px; height:23px; vertical-align:middle; ">추가처방(단체)</caption>
			<caption id="caption76" class="cell_1" style="left:836px; top:75px; width:59px; height:23px; vertical-align:middle; ">선택검사</caption>
			<output id="opt_selamt" ref="/root/main/info/ordinfo/info/selamt" class="output_fix" format="#,###" style="left:898px; top:76px; width:111px; height:19px; text-align:right; "/>
			<group id="grp_sea" style="left:0px; top:10px; width:1194px; height:35px; vertical-align:top; ">
				<shape id="roundrect1" class="roundrect_search" appearance="roundrect" style="left:0px; top:0px; width:1194px; height:35px; "/>
				<caption id="caption2" class="search_name" style="left:275px; top:10px; width:86px; height:17px; ">등록번호 :</caption>
				<line id="line13" class="line_4" style="x1:1107px; y1:7px; x2:1107px; y2:29px; "/>
				<button id="btn_search" class="btn1_letter2" style="left:1123px; top:7px; width:56px; height:22px; ">
					<caption>조회</caption>
					<script type="javascript" ev:event="DOMActivate">
						<![CDATA[ 
							fGetHistList(); 		//건진접수내역가져오기
							fGetOrdInfo(); 		//건진처방내역가져오기
						 	submit("TXAHA04002");	
						 	GridTest();
						]]>
					</script>
				</button>
				<input id="ipt_pid" ref="/root/main/info/patinfo/item/pid" class="input_search" style="left:364px; top:8px; width:90px; height:19px; ">
					<script type="javascript" ev:event="onkeyup">
						<![CDATA[
						 	if(event.keyCode == 13){
						 		model.resetInstanceNode("/root/main/info/patinfo/item");
								fGetPatInfo(2);
								btn_search.dispatch("DOMActivate");
							} 
						]]>
					</script>
				</input>
				<button id="btn_srchpat" class="icon_search" style="left:459px; top:10px; width:16px; height:16px; ">
					<caption/>
					<script type="javascript" ev:event="DOMActivate">
						<![CDATA[   
							fSearchPatInfo("SMAHA00100",   "pid", ipt_pid.currentText , "Y", "/root/main/info/patinfo/item" ,"", ""); 		
							if( model.getValue("/root/temp/okflag") == "ok" ){
								btn_search.dispatch("DOMActivate");
							}
						]]>
					</script>
				</button>
				<select1 id="cmb_srchhealexamdetlflag" ref="/root/send/srchhealexamdetlflag" class="combo_search" appearance="minimal" style="left:90px; top:8px; width:170px; height:19px; ">
					<choices>
						<itemset nodeset="/root/init/baseinfo/hedetlflaglst/A0069">
							<label ref="cdnm"/>
							<value ref="cdid"/>
						</itemset>
					</choices>
					<script type="javascript" ev:event="xforms-select">
						<![CDATA[
							fGetHistList(); 		//건진접수내역가져오기
						]]>
					</script>
				</select1>
				<caption id="caption7" class="search_name" style="left:5px; top:8px; width:86px; height:17px; ">건진구분 :</caption>
				<output id="opt_sex" ref="/root/main/info/patinfo/item/sex" class="output_fix" style="left:588px; top:8px; width:36px; height:19px; "/>
				<output id="opt_age" ref="/root/main/info/patinfo/item/age" class="output_fix" style="left:627px; top:8px; width:36px; height:19px; "/>
				<input id="ipt_pnm" ref="/root/main/info/patinfo/item/hngnm" class="input_search" style="left:480px; top:8px; width:105px; height:19px; ">
					<script type="javascript" ev:event="onkeyup">
						<![CDATA[
						 	if( event.keyCode == 13) { 
						 		model.resetInstanceNode("/root/main/info/patinfo/item");     
								fSearchPatInfo("SMAHA00100",   "pnm", ipt_pnm.currentText , "Y", "/root/main/info/patinfo/item" ,"", ""); 
								btn_search.dispatch("DOMActivate");
							} 
						]]>
					</script>
				</input>
				<input id="ipt_rgstno1" ref="/root/main/info/patinfo/item/rgstno1" class="input_search" visibility="hidden" style="left:665px; top:8px; width:105px; height:19px; "/>
				<input id="ipt_rgstno2" ref="/root/main/info/patinfo/item/rgstno2" class="input_search" visibility="hidden" style="left:775px; top:8px; width:105px; height:19px; "/>
			</group>
			<caption id="caption3" class="tit_2" style="left:460px; top:55px; width:78px; height:13px; ">처방내역</caption>
			<line id="line2" class="line_1" style="x1:460px; y1:70px; x2:1195px; y2:70px; "/>
			<button id="btn_addord" class="btn2_letter3" visibility="hidden" style="left:825px; top:50px; width:53px; height:19px; ">
				<caption>행추가</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						grd_ordlst.addRow();	 
						grd_ordlst.col = col_prcpcd ;
						//grd_ordlst.editCell();
					]]>
				</script>
			</button>
			<datagrid id="grd_ordlst" nodeset="/root/main/info/ordinfo/ordlst" caption="V^D/C^처방구분^청구방법^처방코드^처방명^단가^처방상태^처방일자^시행부서^묶음코드^수가코드^최종수정자^최종수정일시^처방번호^m^묶음검사구분^상태^caption1" colsep="^" colwidth="24, 29, 73, 82, 89, 205, 100, 58, 81, 112, 100, 100, 79, 117, 90, 39, 100, 100" ellipsis="true" explorerbar="sortshow" frozencols="5" mergecellsfixedrows="bycolrec" rowheader="seq" rowheight="50" rowsep="|" tooltip="true" style="left:460px; top:75px; width:735px; height:580px; ">
				<col checkvalue="Y,N" ref="sel" type="checkbox"/>
				<col checkvalue="Y,N" ref="dcflag" type="checkbox"/>
				<col disabled="true" ref="testflag" type="combo">
					<choices>
						<itemset nodeset="/root/init/baseinfo/testflag/A0117">
							<label ref="cdnm"/>
							<value ref="cdid"/>
						</itemset>
					</choices>
				</col>
				<col ref="uncocd" type="combo">
					<choices>
						<itemset nodeset="/root/init/baseinfo/pamcdlst/uncocdlst">
							<label ref="nm"/>
							<value ref="cd"/>
						</itemset>
					</choices>
				</col>
				<col ref="testcd" type="inputbutton"/>
				<col ref="testnm"/>
				<col disabled="true" ref="scoreamt" type="input" format="#,###" style="text-align:right; "/>
				<col disabled="true" ref="rcptstat" type="combo">
					<choices>
						<itemset nodeset="/root/init/baseinfo/ordstatlst/M0011">
							<label ref="cdnm"/>
							<value ref="cdid"/>
						</itemset>
					</choices>
				</col>
				<col ref="prcpdd" format="yyyy-mm-dd" style="text-align:center; "/>
				<col disabled="true" ref="prcpexecdeptcd" type="combo">
					<choices>
						<itemset nodeset="/root/init/dept_info/initprcpexecdeptcd">
							<label ref="prcpexecdeptcdnm"/>
							<value ref="prcpexecdeptcdid"/>
						</itemset>
					</choices>
				</col>
				<col ref="pkgcd"/>
				<col ref="calcscorcd"/>
				<col ref="lastupdtrid"/>
				<col ref="lastupdtdt" format="yyyy-mm-dd hh:nn:ss"/>
				<col ref="prcpno"/>
				<col ref="m" visibility="hidden"/>
				<col ref="grupflag" type="combo" visibility="hidden">
					<choices>
						<item>
							<label>묶음</label>
							<value>G</value>
						</item>
						<item>
							<label>패키지</label>
							<value>P</value>
						</item>
					</choices>
				</col>
				<col ref="dcynflag" visibility="hidden"/>
				<col ref="execprcpuniqno" visibility="hidden"/>
				<script type="javascript" ev:event="onbuttonclick">
					<![CDATA[
						if( grd_ordlst.col == col_prcpcd ) {
							var idx = grd_ordlst.row;
							if( idx < 1) return ;
							fGetPkgCd("SMAHA00100", "A", "N","cd" , grd_ordlst.labelMatrix(idx, col_prcpcd) , "" , "", grd_ordlst.nodeset + "[" + idx + "]" , "Y"); 		//AHA001.js
							fDupCheck(grd_ordlst , grd_ordlst.colRef("testcd"));
							fCalcOrdAmt();
						}
					]]>
				</script>
				<script type="javascript" ev:event="onendedit">
					<![CDATA[
						if( grd_ordlst.col == col_prcpcd ) {							
							var idx = grd_ordlst.row;
							if( idx < 1) return ;
							fGetPkgCd("SMAHA00100", "A", "N","cd" , grd_ordlst.labelMatrix(idx, col_prcpcd) , "" , "", grd_ordlst.nodeset + "[" + idx + "]" , "Y"); 		//AHA001.js
							fDupCheck(grd_ordlst , grd_ordlst.colRef("testcd"));					
							fCalcOrdAmt();
						}		
					]]>
				</script>
				<script type="javascript" ev:event="xforms-value-changed">
					<![CDATA[
						if (grd_ordlst.colRef("testflag") == grd_ordlst.col){
							fPrcpDanga();
						}
						if (grd_ordlst.colRef("uncocd") == grd_ordlst.col){
							var suncocd = model.getValue("/root/main/info/ordinfo/ordlst[" + grd_ordlst.row + "]/uncocd");
							if (suncocd == "V02"){
								var sdanga = parseFloat(model.getValue("/root/main/info/ordinfo/ordlst[" + grd_ordlst.row + "]/scoreamt"));
								model.makeValue("/root/hidd/danga", sdanga);
								sdanga = parseInt(sdanga * 0.1);
								sdanga = sdanga * 10;
								model.setValue("/root/main/info/ordinfo/ordlst[" + grd_ordlst.row + "]/scoreamt", sdanga);
							}else{
								var vCnt = getNodesetCount("/root/hidd/danga");
								if (vCnt > 0){
									model.setValue("/root/main/info/ordinfo/ordlst[" + grd_ordlst.row + "]/scoreamt", model.getValue("/root/hidd/danga"));
								}
							}
						}

						fCalcOrdAmt();
						if( grd_ordlst.col == 2 ){
							var i = grd_ordlst.row;
							if( i < 1) return ;
							var dcflag = model.getValue(grd_ordlst.nodeset + "[" + i + "]/dcflag");
							if( dcflag == "Y" ) {
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/m", "d");
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/sel", "Y");
								grd_ordlst.addStatus(i, "delete");
							}
							else {
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/m", "u");
								grd_ordlst.removeStatus(i, "delete"); 
							}
							var spkgcd = model.getValue("/root/main/info/ordinfo/ordlst[" + i + "]/pkgcd");
							var stestflag = model.getValue("/root/main/info/ordinfo/ordlst[" + i + "]/testflag");
							var sprcpdd = model.getValue("/root/main/info/ordinfo/ordlst[" + i + "]/prcpdd");
							if (stestflag == "A"){
								if (dcflag == "Y"){
									if (spkgcd == "" || spkgcd == "-"){
									}else{
										for (var j = 1; j < grd_ordlst.rows; j ++){
											if (model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/pkgcd") == spkgcd && model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/prcpdd") == sprcpdd){
												model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/m", "d");
												model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/sel", "Y");
												model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/dcflag", "Y");
												grd_ordlst.isReadOnly(j, 2) = true;
												grd_ordlst.addStatus(j, "delete");
											}
										}
									}
								}else{
									if (spkgcd == "" || spkgcd == "-"){
									}else{
										for (var j = 1; j < grd_ordlst.rows; j ++){
											if (model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/pkgcd") == spkgcd && model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/prcpdd") == sprcpdd){
												model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/sel", "N");
												model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/dcflag", "N");
												grd_ordlst.removeStatus(j, "delete");
												grd_ordlst.isReadOnly(j, 2) = false;
											}
										}
									}
								}
							}
							grd_ordlst.refresh();
						}
					]]>
				</script>
				<script type="javascript" ev:event="onkeydown">
					<![CDATA[
						var keyp = event.keyCode
						if(keyp == 113 ) {
							grd_ordlst.row = grd_ordlst.rows-1;
						}		
					]]>
				</script>
				<script type="javascript" ev:event="onclick">
					<![CDATA[
						if(!(grd_ordlst.row == 0 && grd_ordlst.col == 2)) return;
						
						var cnt = grd_ordlst.rows;						
						if(model.getXPathValue("count(/root/main/info/ordinfo/ordlst[dcflag = 'Y'])") != model.getXPathValue("count(/root/main/info/ordinfo/ordlst)")){
							for(var i = 1; i < cnt ; i++){
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/m"			, "d");
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/sel"		, "Y");
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/dcflag"	, "Y");
								grd_ordlst.addStatus(i, "delete");
							}
						}else{
							for(var i = 1; i < cnt ; i++){
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/m"			, "d");
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/sel"		, "Y");
								model.setValue(grd_ordlst.nodeset + "[" + i + "]/dcflag"	, "Y");
								grd_ordlst.addStatus(i, "delete");
							}
						}
					]]>
				</script>
				<script type="javascript" ev:event="onaftersort">
					<![CDATA[
						grd_ordlst.gridToInstance();
					]]>
				</script>
			</datagrid>
			<button id="btn_delord" class="btn2_letter3" visibility="hidden" style="left:881px; top:50px; width:53px; height:19px; ">
				<caption>행삭제</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[ 
						//deleteSelectedRows(grd_ordlst, true);						
						var idx = grd_ordlst.row;
						if(idx > 0) {
							var rowStat = grd_ordlst.rowStatus(idx);
							if(rowStat == 1 || rowStat == 3) {
								grd_ordlst.deleteRow(idx);								  
							}else {
								model.setValue(grd_ordlst.nodeset + "[" + grd_ordlst.row + "]/m", "d");
								model.setValue(grd_ordlst.nodeset + "[" + grd_ordlst.row + "]/addexamdel", "Y");								
								grd_ordlst.valueMatrix(idx , grd_ordlst.colRef("sel")) 		= 'Y';
								grd_ordlst.valueMatrix(idx , grd_ordlst.colRef("dcflag")) 	= 'Y';
								grd_ordlst.addStatus(grd_ordlst.row, "delete");															
							}
						}						
					]]>
				</script>
			</button>
			<datagrid id="grd_histlst" nodeset="/root/main/histlst/item" caption="건진일자^단체명^패키지명^건진상태^수납상태^caption3^caption4^healexamplacecd^caption1^caption2" colsep="^" colwidth="71, 97, 101, 71, 74, 100, 100, 100" mergecellsfixedrows="bycolrec" rowheader="seq" rowsep="|" style="left:5px; top:75px; width:450px; height:175px; ">
				<col ref="hopedd" format="yyyy-mm-dd"/>
				<col ref="cmpynm"/>
				<col ref="pkgnm"/>
				<col disabled="true" ref="statflag" type="combo">
					<choices>
						<itemset nodeset="/root/init/baseinfo/statlst/A0107">
							<label ref="cdnm"/>
							<value ref="cdid"/>
						</itemset>
					</choices>
				</col>
				<col disabled="true" ref="rcptstat" type="combo">
					<choices>
						<item>
							<label>수납</label>
							<value>Y</value>
						</item>
						<item>
							<label>미계산</label>
							<value>N</value>
						</item>
						<item>
							<label>수납</label>
							<value>X</value>
						</item>
					</choices>
				</col>
				<col ref="uncocd" visibility="hidden"/>
				<col ref="disccd" visibility="hidden"/>
				<col ref="healexamplacecd" visibility="hidden"/>
				<script type="javascript" ev:event="onclick">
					<![CDATA[
						fGetOrdInfo(); 		//건진처방내역가져오기
						model.makeValue("/root/tmp/cho",rdo_choiflag.value);
					 	model.setfocus("grd_ordlst");
					]]>
				</script>
			</datagrid>
			<caption id="caption1" class="tit_2" style="left:10px; top:55px; width:78px; height:14px; ">건진이력</caption>
			<line id="line1" class="line_1" style="x1:5px; y1:70px; x2:455px; y2:70px; "/>
			<caption id="caption4" class="tit_2" style="left:10px; top:255px; width:95px; height:14px; ">
				<![CDATA[건진상세정보]]>
				<script type="javascript" ev:event="ondblclick">
					<![CDATA[
						bool1.visible = true;
						caption10.visible = true;
					]]>
				</script>
			</caption>
			<line id="line3" class="line_1" style="x1:5px; y1:270px; x2:455px; y2:270px; "/>
			<textarea id="tar_desc" ref="/root/main/info/ordinfo/info/acptdesc" disabled="true" style="left:5px; top:275px; width:450px; height:465px; "/>
			<line id="line10" class="line_2" style="x1:455px; y1:100px; x2:1185px; y2:100px; "/>
			<button id="btn_selprcpcd" class="btn2_letter4" visibility="hidden" style="left:995px; top:50px; width:64px; height:19px; ">
				<caption>처방사전</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fGetPkgCd("SMAHA00100", "T", "Y","nm" , "" , "" , "", "/root/temp/templst", "Y"); 																	//AHA001.js
						fSetAddList(grd_ordlst, col_prcpcd, "/root/temp/templst/list", "Y"); 																					//AHA001.js
						grd_ordlst.row= grd_ordlst.rows -1;
						grd_ordlst.editCell();
					]]>
				</script>
			</button>
			<button id="btn_seladd" class="btn2_letter4" style="left:1128px; top:50px; width:64px; height:19px; ">
				<caption>추가검사</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						var choitestcd = model.getValue("/root/tmp/cho");
						fGetPkgCd("SMAHA00100", "A", "Y", "nm", "", "", "", "/root/temp/templst", "Y", "", "", "", opener.javascript.getParameter("SMAHA00700_PARAM3"), opener.javascript.getParameter("SMAHA00700_PARAM4"));   //AHA001.js
						fSetAddList(grd_ordlst, col_prcpcd, "/root/temp/templst/list", "Y", "", model.getValue("/root/main/histlst/item/pkgcd")); 	//AHA001.js
						
						if(model.getValue("/root/temp/okflag") != ""){
							fPrcpDanga();
							grd_ordlst.row			= grd_ordlst.rows -1;
							grd_ordlst.topRow	= grd_ordlst.row;
							grd_ordlst.editCell();
							model.makeValue("/root/send2/popchk", "Y");
						}
						model.makeValue("/root/tmp/cho", choitestcd);
						model.refresh();
					]]>
				</script>
			</button>
			<caption id="caption8" class="tit_2" style="left:460px; top:680px; width:78px; height:14px; ">선택검사</caption>
			<line id="line4" class="line_1" style="x1:460px; y1:695px; x2:1195px; y2:695px; "/>
			<caption id="cap_choiflag" class="cell_1" style="left:460px; top:705px; width:64px; height:23px; vertical-align:middle; ">선택</caption>
			<caption id="caption9" style="left:465px; top:660px; width:590px; height:15px; color:#ff0000; ">* 약처방 및 주사는 용법에 따라 취소 시점이 다르므로 삭제된 처방이 안보일 수 있음.</caption>
			<datagrid id="datagrid1" nodeset="/root/temp1/test" visibility="hidden" caption="caption1^caption2" colsep="^" colwidth="100, 100" mergecellsfixedrows="bycolrec" rowsep="|" style="left:215px; top:215px; width:225px; height:310px; ">
				<col ref="testcd"/>
				<col ref="pkgcd"/>
			</datagrid>
			<bool id="bool1" visibility="hidden" checkvalue="Y,N" ref="/root/send/srchchk" style="left:1010px; top:670px; width:35px; height:20px; "/>
			<caption id="caption10" visibility="hidden" style="left:1040px; top:670px; width:100px; height:20px; ">수납적용제외</caption>
			<select1 id="rdo_choiflag" ref="/root/main/info/patinfo/item/choiflag" appearance="full" cols="5" overflow="visible" style="left:527px; top:707px; width:300px; height:20px; border-style:none; ">
				<choices>
					<itemset nodeset="/root/init/baseinfo/examinfo/S100">
						<label ref="cdnm"/>
						<value ref="cdid"/>
					</itemset>
				</choices>
				<script type="javascript" ev:event="xforms-value-changed">
					<![CDATA[
						if(model.getValue("/root/main/info/ordinfo/info/choiflag") != model.getValue("/root/main/info/patinfo/item/choiflag")){
							var rtn = messageBox("선택검사를 변경 하시겠습니까? ", "Q099");
							if(rtn == 6){
								model.makeValue("/root/temp/choiflagchangeyn", "Y");
								for (var i=1; i<datagrid1.rows; i++){
									var stestcd = model.getValue("/root/temp1/test[" + i + "]/testcd");
									var spkgcd = model.getValue("/root/temp1/test[" + i + "]/pkgcd");
									for(var j=1; j<grd_ordlst.rows; j++){
										if (model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/testcd") == stestcd && model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/pkgcd") == spkgcd){
											model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/m"			, "d");
											model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/sel"		, "Y");
											model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/dcflag"	, "Y");
											grd_ordlst.isReadOnly(j, 2) = true;
											grd_ordlst.addStatus(j, "delete");
											continue;
										}
									}
								}
							}else if(rtn == 7){
								rdo_choiflag.value = selcho;						
								return false;
							}
						}else{
							model.makeValue("/root/temp/choiflagchangeyn", "N");
							for (var i = 1; i < datagrid1.rows; i ++){
								var stestcd = model.getValue("/root/temp1/test[" + i + "]/testcd");
								var spkgcd = model.getValue("/root/temp1/test[" + i + "]/pkgcd");
								for (var j = 1; j < grd_ordlst.rows; j ++){
									if (model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/testcd") == stestcd && model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/pkgcd") == spkgcd){
										if (model.getValue("/root/main/info/ordinfo/ordlst[" + j + "]/dcflag") == "Y"){
											model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/sel"		, "N");
											model.setValue("/root/main/info/ordinfo/ordlst[" + j + "]/dcflag"	, "N");
											grd_ordlst.removeStatus(j, "delete");
											grd_ordlst.isReadOnly(j, 2) = false;
											continue;
										}
									}
								}
							}
						}
						model.refresh();
					]]>
				</script>
				<script type="javascript" ev:event="DOMFocusIn">
					<![CDATA[
						selcho = rdo_choiflag.value; 		
					]]>
				</script>
			</select1>
		</group>
		<group id="grp_btn" style="left:0px; top:757px; width:1195px; height:27px; ">
			<button id="btn_clear" class="btn4_letter3" style="left:1122px; top:5px; width:68px; height:22px; ">
				<caption>초기화</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						fGetHistList();
					]]>
				</script>
			</button>
			<button id="btn_save" class="btn4_letter2" style="left:1065px; top:5px; width:56px; height:22px; ">
				<caption>저장</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[ 
						fChangeCode(); 		//선택검사변경
						fSavePrcp(); 			//처방저장
						fGetOrdInfo(); 			//건진처방내역가져오기
						GridTest();
						model.makeValue("/root/tmp/cho", rdo_choiflag.value);
						
						/* 선택검사 변경 후 수납 시 수납정보 미입력으로 인한 주석처리 - 20111017_서원식
						 * emr.mmodexop - rcptno, rcptseqno, rcptdd, rcptrid
						var kk = 0;
						for (var i = 1; i < grd_ordlst.rows; i++){
							if (model.getValue("/root/main/info/ordinfo/ordlst[" + i + "]/rcptstat") >= "230"){
								kk = kk + 1;
							}
						}
						
						if (kk > 0) {
							model.resetInstanceNode("/root/send/savelist");
							var nodeList = instance1.selectNodes(grd_ordlst.nodeset + "[rcptstat='000' and testflag='S']");
							var rCSV = getNodeListCSV(nodeList);
							model.makeNode("/root/send/saveinfo/savelist");
							model.setValue("/root/send/saveinfo/savelist", rCSV);
							
							if (submit("TXAHA00702")){
								fGetOrdInfo();
								GridTest();
								model.makeValue("/root/tmp/cho",rdo_choiflag.value) ;	
							}
						}
						*/
					]]>
				</script>
			</button>
			<button id="button1" class="btn4_letter4" visibility="hidden" style="left:985px; top:5px; width:80px; height:22px; ">
				<caption>수납처리</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						model.resetInstanceNode("/root/send/savelist");
						var nodeList = instance1.selectNodes(grd_ordlst.nodeset + "[rcptstat='000']");
						var rCSV = getNodeListCSV(nodeList);
						model.makeNode("/root/send/saveinfo/savelist");
						model.setValue("/root/send/saveinfo/savelist" , rCSV);
						
						if (submit("TXAHA00702")){
							fGetOrdInfo(); 		//건진처방내역가져오기
							GridTest();
							fDope(); 				//마약 호출
							model.makeValue("/root/tmp/cho",rdo_choiflag.value);
						}
					]]>
				</script>
			</button>
			<button id="button2" class="btn4_letter4" style="left:905px; top:5px; width:80px; height:22px; ">
				<caption>상태변경</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
						if(messageBox("상태변경 ", "Q002") != 6) return;
						
						if(grd_histlst.row < 1){
							messageBox("건진이력을 ", "C002");
							return;
						}
						
						var nodeList = instance1.selectNodes(grd_ordlst.nodeset + "[sel='Y']");
						var updData = getGridUpdateData(grd_ordlst);
						if((nodeList.length  < 1)  || (updData == "" )){
							messageBox("저장할 데이터가 존재하지 않습니다.", "E999");
							return;
						}
						model.resetInstanceNode("/root/send/saveinfo/savelist");
						model.makeNode("/root/send/saveinfo/savelist");
						model.setValue("/root/send/saveinfo/savelist", updData);

						if(submit("TXAHA00703")){
							fGetOrdInfo(); 		//건진처방내역가져오기
							GridTest();
							model.makeValue("/root/tmp/cho", rdo_choiflag.value) ;	
						}
					]]>
				</script>
			</button>
		</group>
		<script type="javascript" ev:event="onkeydown">
			<![CDATA[
				var keyp = event.keyCode
				if(keyp == 113 ) {
					grd_ordlst.row = grd_ordlst.rows-1;
				}
			]]>
		</script>
	</xhtml:body>
</xhtml:html>