YNU_JEUS/app_home/himed/webapps/ast/healthexamrsrvacptweb/xrw/SMAHA04050_처방관리.xrw

<?xml version="1.0" encoding="EUC-KR"?>
<!--
	* 제    목   : SMAHA04050.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/>
						</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>
			<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/healthexamrsrvacptweb/js/AHA.js"/>
			<script type="javascript" ev:event="xforms-ready">
				<![CDATA[

				 	fInitBaseInfo();
				 	fInitOrdInfo(true);				 	
				 	if( checkOpener() ){    
						model.setValue(cmb_srchhealexamdetlflag.attribute("ref")	, opener.javascript.getParameter("SMAHA00700_PARAM1"));
						ipt_pid.currentText	= opener.javascript.getParameter("SMAHA00700_PARAM2") ;                                                         
						var pid= ipt_pid.currentText;
						if(pid != "" && pid != null){
							fGetPatInfo(2);
							btn_search.dispatch("DOMActivate");
						}
				 	}
					model.makeValue("/root/tmp/cho",rdo_choiflag.value) ;
					submit("TRAEB00205");
				 	model.setfocus("grd_ordlst");
				]]>
			</script>
			<submission id="TRZBC00101"/>
			<submission id="TRAHA04011" 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="TRAHA04051" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" replace="instance" resultref="/root/main/info/ordinfo"/>
			<submission id="TRAHA04052" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send1" replace="instance" resultref="/root/price"/>
			<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="TXAHA04051" 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="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="TRAEB00205" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send/globalinstance" replace="instance" resultref="/root/init/dept_info"/>
		</model>
		<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 vHealExamDetlFg = getScreenMenuParameter();
			 	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";			   	           
			 	}                        
				cmb_srchhealexamdetlflag.choices.itemset.attribute("nodeset") 	=  sDetlFg  ;
				                                                                                                                                                                                                            
				submit("TRZBC00101");	
				
				model.setValue("/root/send/srchinstcd", getUserInfo("posinstcd") );
				submit("TRAHA00104"); 
				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);	
							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;		
					}
				}*/
				
				/*
				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(model.getValue("/root/main/histlst/item/statflag")=="C"){
				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 + "]/srchorddept") ); //진료과-처방발생부서
				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("TRAHA04051");	
				//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;
				}
				*/
				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 ; 
			
			var chkchoiflagchangeyn  = model.getValue("/root/temp/choiflagchangeyn")  ; 

			if(chkchoiflagchangeyn != "Y"){
				model.resetInstanceNode("/root/send/save");  
				
				var nodeList = instance1.selectNodes(grd_ordlst.nodeset + "[sel='Y']");  
				var updData = getGridUpdateData(grd_ordlst); 

				var rCSV = "";
				if ( (nodeList.length  < 1)  || (updData == "" ) ){
					messageBox("저장할 데이터가 존재하지 않습니다.", "E999");
					return ;
				}
			}
			//rCSV = getNodeListCSV(nodeList);  
			
			model.makeNode("/root/send/save/saveordlst");
			model.setValue("/root/send/save/saveordlst" , updData);    			
			var idx = grd_histlst.row;
			if(chkchoiflagchangeyn == "Y"){idx = 1; } 
				
			if( idx < 1 ){
				messageBox("건진이력을 .", "C002");
				return ;
			}
			var sNode = grd_histlst.nodeset + "[" + idx + "]/"; 
			
			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/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");
			
			
			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/uncocd"		, model.getValue(sNode 	+ "uncocd"));
			model.setValue("/root/send/save/disccd"			, model.getValue(sNode 	+ "disccd"));
			model.setValue("/root/send/save/instcd"			, getUserInfo("posinstcd") );
			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"));

			// 수납금액이 0로면 수납창을 뛰우지 않는다
			
			
			
			openLoadingBar("처방정보 저장중...") ;//처리중 화면을 오픈한다.         
			var ret =  submit("TXAHA04051") ; 
			closeLoadingBar() ;//처리중 화면을 close한다.  
			
			var statflag = model.getValue("/root/main/histlst/item[" + idx + "]/statflag");
			if (statflag == "C"){
				return;
			}
			var grdcnt = grd_ordlst.rows;
			var amtCheck = "1";
			for(i=0;i<=grdcnt;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");
					if( ret  == 1)	{
						if (model.getValue("/root/send2/popchk") == "Y"){
							ahafOpenRcpt2(  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") ); 
						}
					}
			}
			}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("posinstcd"));

			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 = "";
			/*
			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"));
			submit("TRAHA04052");
			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 ahafOpenRcpt2(vHealExamFlag, vRsrvDD, vRsrvNo, vPid, vRcptStat , vOrdDD ){ 
			clearParameter("SMAHA02100_PARAM_PID");
			clearParameter("SMAHA02100_PARAM_RSRVDD");
			clearParameter("SMAHA02100_PARAM_RSRVNO");
			clearParameter("SMAHA02100_PARAM_HEALEXAMFLAG" );				 
			
			setParameter("SMAHA02100_PARAM_PID", vPid);
			setParameter("SMAHA02100_PARAM_RSRVDD", vRsrvDD);
			setParameter("SMAHA02100_PARAM_RSRVNO", vRsrvNo);
			setParameter("SMAHA02100_PARAM_HEALEXAMFLAG", vHealExamFlag);	
			setParameter("SMAHA02100_PARAM_ORDDD", vOrdDD);	

			var sRcptStat = "" ;
			

			if( vRcptStat == "N" ){ //수납상태 
				sRcptStat = "Y";
			}
			else {
				sRcptStat = "N";
				
			}					
				setParameter("SMAHA02100_RTN", sRcptStat);
				modal("SMAHA02100");				
				
		}
		]]>
		</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");
								//fGetHistList();
/*								model.setFocus(grd_histlst.row);
								fGetOrdInfo();*/
							} 
						]]>
					</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" ){
								//fGetHistList();
								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" ,"", ""); 
								//fGetHistList();
								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");
							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"); 		
							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");
						fSetAddList(grd_ordlst , col_prcpcd , "/root/temp/templst/list", "Y"); 
						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");
						fSetAddList(grd_ordlst , col_prcpcd , "/root/temp/templst/list", "Y","", model.getValue("/root/main/histlst/item/pkgcd"));
						
						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; "/>
			<select1 id="rdo_choiflag" ref="/root/main/info/patinfo/item/choiflag" visibility="hidden" appearance="full" cols="4" rows="1" overflow="visible" style="left:527px; top:707px; width:328px; height:20px; border-style:none; ">
				<choices>
					<item>
						<label>당일</label>
						<value>01</value>
					</item>
					<item>
						<label>위투시</label>
						<value>02</value>
					</item>
					<item>
						<label>위내시경</label>
						<value>03</value>
					</item>
				</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>
			<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>
		</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) ;	
						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:980px; 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();
							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>