YNU_JEUS/app_home/himed/webapps/emr/prcpmngtweb/xrw/SPMMO01500_처방상세수혈.xrw

<?xml version="1.0" encoding="EUC-KR"?>
<?xml-stylesheet type="text/css" href="../../../com/commonweb/css/common.css" ?>
<xhtml:html xmlns:ex="http://www.comsquare.co.kr/xforms/excel" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:ms="urn:schemas-microsoft-com:xslt" xmlns:my="http://www.comsquare.co.kr/example" 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" xmlns:cs="http://www.comsquare.co.kr/xforms">
	<xhtml:head>
		<xhtml:title>[수혈]</xhtml:title>
		<model id="model1">
			<instance id="instance1">
				<root xmlns="">
					<main>
						<prcp>
							<prcplist>
								<status/>
								<prcpstatcd/>
								<prcpclscd/>
								<prcpkindcd/>
								<prcpcd/>
								<prcpnm/>
								<prcpvol/>
								<prcpvolunitnm/>
								<prcpqty/>
								<prcpqtyunitnm/>
								<prcptims/>
								<prcpdayno/>
								<drugmthdspccdnm/>
								<prcpmixno/>
								<payflagcd/>
								<prcpdelivefact/>
								<hosinhosoutflag/>
								<prcpexecdeptcd/>
								<prcphopedd/>
								<choiordflag/>
								<rgstdt/>
								<rgstridnm/>
								<testrsltunit/>
								<testrsltcnts/>
								<prcpgenrflag/>
								<prcphistcd/>
								<tempprcpflag/>
								<prcpsetcd/>
								<prcpvolunitflag/>
								<prcpqtyunitflag/>
								<orgprcpqty/>
								<drugspd/>
								<drugspdunitflag/>
								<powdflag/>
								<prnprcpflag/>
								<prepprcpflag/>
								<selfprcpflag/>
								<selfdrugflag/>
								<drugpackflag/>
								<erprcpflag/>
								<precureprcpflag/>
								<nigtprcpflag/>
								<portprcpflag/>
								<fixprcpflag/>
								<anamneflag/>
								<fastprcpflag/>
								<erreadflag/>
								<prcpdirecflag/>
								<tnsuseflag/>
								<tnsfiltflag/>
								<trnptbftestflag/>
								<offictourhealexamflag/>
								<stemcellflag/>
								<angioflagcd/>
								<opansflagcd/>
								<ansttm/>
								<mealcalrcnts/>
								<mealprotcnts/>
								<mealupdtflag/>
								<hosinprcpresncd/>
								<etcprcpresncd/>
								<drugmthdspccd/>
								<issdeptcd/>
								<prcpauthflag/>
								<prcpinptflag/>
								<prcpsignflag/>
								<rateprcpflag/>
								<prcprefseq/>
								<ordreqlnkno/>
								<testreqlnkno/>
								<prcplnkdd/>
								<prcplnkno/>
								<oprsrvno/>
								<tootfact/>
								<clinccmtcnts/>
								<prcpessninptflag/>
								<grupsnglflag/>
								<drugrateqty/>
								<asttestflag/>
								<clincstdyflag/>
								<prtlno/>
								<clincstdycd/>
								<optermcd/>
								<prcpflag/>
								<hscttempprcpflag/>
								<inclprcpcd/>
								<inclprcpno/>
								<pampkspec/>
								<prcppkspec/>
								<calcscormastspec/>
								<drugmastspec/>
								<rateprcpspec/>
								<matrsetprcpspec/>
								<suppdeptspec/>
								<contprcpspec/>
								<etclnkspec/>
								<srchcondcnts/>
								<orgprcpnm/>
								<chkcol/>
								<hsctdelivepos/>
								<hsctlnkno/>
								<etcprcpflag/>
								<aftcertflag/>
								<aftcertdrid/>
								<prcpvalidd/>
								<insukind/>
								<specdrid/>
								<anticncrprtlno/>
								<anticncrdayno/>
								<druglnkno/>
								<rehbprcpcurefreqflag/>
								<dietprcpgenrflag/>
								<irpayflag/>
								<irflag/>
								<procerdietflag/>
								<diagtestconttestintvlflag/>
								<drugindependpackflag/>
								<diagtestconttestbasetm/>
								<diagtestconttestorgtims/>
								<ermediscmngtresncd/>
								<rehbprcpenddd/>
								<matrallsizespecid/>
								<rehbprcpcurepartcd/>
								<lowdrugresncd/>
								<tfdtlcd/>
								<dnorreqlnkno/>
								<subcretno/>
								<exptmthdfact/>
								<lowdrugresnetcfact/>
								<diagtestconttestcdspec/>
								<drgacptflag/>
								<drprcpetc1/>
								<drprcpetc2/>
								<drprcpetc3/>
								<drprcpetc4/>
								<drprcpetc5/>
								<drprcpetc6/>
								<drprcpetc7/>
								<drprcpetc8/>
								<drprcpetc9/>
								<drprcpetc10/>
								<tempcol1/>
								<tempcol2/>
								<tempcol3/>
								<tempcol4/>
								<tempcol5/>
								<tempcol6/>
								<tempcol7/>
								<tempcol8/>
								<tempcol9/>
								<tempcol10/>
								<tempcol11/>
								<tempcol12/>
								<tempcol13/>
								<tempcol14/>
								<tempcol15/>
								<tempcol16/>
								<tempcol17/>
								<tempcol18/>
								<tempcol19/>
								<tempcol20/>
								<tempcol21/>
								<tempcol22/>
								<tempcol23/>
								<tempcol24/>
								<tempcol25/>
							</prcplist>
						</prcp>
					</main>
					<init>
						<tnsuseflag/>
						<payflagcd/>
						<orddept>
							<dept/>
						</orddept>
						<irpayflag/>
						<prcphopeddh>00</prcphopeddh>
						<prcphopeddm>00</prcphopeddm>
						<seffectyn/>
						<M0330/>
						<drgacptflag/>
					</init>
					<dept/>
					<drugcalc>
						<prcpvol/>
						<prcpqty/>
						<prcptims/>
					</drugcalc>
					<patinfo>
						<patinfolist>
							<bloodtype>혈액형</bloodtype>
							<ast>AST</ast>
							<aborhchk>미검사 처방의뢰를 해 주십시오</aborhchk>
							<prcpnm>처방명</prcpnm>
							<rsrv>예약현황</rsrv>
							<deliveposs>불출가능현황</deliveposs>
						</patinfolist>
						<patinfolist>
							<bloodtype/>
							<ast/>
							<aborhchk/>
							<prcpnm/>
							<rsrv/>
							<deliveposs/>
						</patinfolist>
					</patinfo>
					<send>
						<ioflag/>
						<pid/>
						<orddd/>
						<cretno/>
						<prcpdd/>
						<prcpcd/>
						<instcd/>
						<ordnm/>
						<cond1/>
						<cond2/>
						<cond3/>
						<cond4/>
						<cond5/>
						<cond6/>
						<cond99/>
					</send>
					<result>
						<blodrslt1>
							<btyperslt/>
							<astrslt/>
							<btypeyn/>
							<btypecd/>
							<astyn/>
							<astcd/>
						</blodrslt1>
						<blodrslt2>
							<prcpcd/>
							<prcpnm/>
							<delivepossqty/>
						</blodrslt2>
						<blodrslt3>
							<lastreptdt/>
							<tclsscrnnm/>
							<reptrslt/>
							<rsltunit/>
							<refl/>
							<refh/>
							<pid/>
							<testcd/>
							<refrslt/>
							<refcolor/>
						</blodrslt3>
						<blodrslt4>
							<dispyn/>
							<genrdd/>
							<genrno/>
							<instcd/>
							<prcpdd/>
							<pid/>
							<orddd/>
							<cretno/>
							<prcpcd/>
							<adaptflag/>
							<adaptrsncd/>
							<fstrgstrid/>
							<fstrgstdt/>
							<lastupdtrid/>
							<lastupdtdt/>
							<adaptetccnts/>
							<adaptnrmlcnts/>
							<comcd/>
							<qestmsg/>
						</blodrslt4>
						<blodrslt5>
							<tnssideeffect/>
						</blodrslt5>
						<blodrslt6>
							<ocrtag/>
							<pid/>
							<patnm/>
							<ioflag/>
							<orddd/>
							<cretno/>
							<orddeptcd/>
							<orddeptnm/>
							<orddrid/>
							<orddrnm/>
							<formnm/>
							<scanyn/>
							<scanpagecnt/>
							<stat/>
							<statnm/>
							<term/>
							<fstrgstdt/>
						</blodrslt6>
					</result>
					<prcpsrch/>
					<prcptemp>
					</prcptemp>
					<orddept/>
					<temp>
						<send/>
						<patsupkind/>
					</temp>
				</root>
			</instance>
			<script type="javascript" ev:event="xforms-model-construct-done">
				<![CDATA[
    			    zbcfGetCodeList(new Array("M0039","M0029", "M0044", "M0330", "P0506"),new Array("/root/init/tnsuseflag","/root/init/payflagcd", "/root/init/irpayflag", "/root/init/M0330","/root/init/drgacptflag"));
                    //원무에서 화면을 열 경우, 공통코드 조회 이외의 로직은 처리하지 않음 2008. 06. 16 오지훈
					var prcppopupflag = opener.javascript.getParameter("prcppopupflag");
					if(prcppopupflag == "PAM"){
						return;
					}
    			    
    			    document.title = document.title + "[" + model.getValue("/root/main/prcp/prcplist/prcpcd") + " : " + model.getValue("/root/main/prcp/prcplist/orgprcpnm") + "]";
    			    //zbcfGetDeptCodeList(getUserInfo("dutplceinstcd"), "insuuseyn", "", "/root/init/orddept" , "depthngnm"); //부서코드 콤보 조회
    		        fPrcpExecDeptSrch();
    		        model.refresh();
					
					//M-SET 자처방의 경우, 검사희망일(prcphopedd) disabled설정
					//2008. 07. 22 오지훈
					var prcpsetcd = model.getValue("/root/main/prcp/prcplist/prcpsetcd");
					if(prcpsetcd != '-'){
						input2.disabled = true;						
					}
					
					//irr 비활성화 병원별 적용(성가요청), cHc, 2009-07-21
					if ( opener.model.getValue("/root/initsrch/irrcheckyn/trgtcd") == "Y") {
						grd_prcpdetl1.isReadOnly(1, grd_prcpdetl1.colRef("irflag")) = true;
					} 					
					
					var sInstCd = getUserInfo("dutplceinstcd");
					if(sInstCd == "031") {
						cap_blodformmsg.value = "※ 입원환자는 입원기간  첫 수혈시, 수술 예상 환자는 수술전, 외래환자는 첫 수혈시와 1년마다 \n   수혈동의서를 받아야 합니다. 동의서가 없는 경우는 혈액이 불출되지 않습니다.";
					} else {
						cap_blodformmsg.value = "※ 첫 수혈시와 그 후 1년마다 수혈 동의서를 받아야 하며 동의서가 없는 경우 혈액이 불출되지 않습니다.";
					}
					
	                model.refresh();
				]]>
			</script>
			<submission id="TRZBC00101" mediatype="application/x-www-form-urlencoded" method="post" ref="cdnm" resultref="cdid"/>
			<submission id="TRZSD00109" mediatype="application/x-www-form-urlencoded" method="post"/>
			<submission id="TRMMO04103" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/dept" resultref="/root/init/orddept"/>
			<submission id="TRMMO01501" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" resultref="/root/result"/>
			<submission id="TRMMO00100" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" resultref="/root/prcpsrch"/>
			<submission id="TRMMO00116" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" resultref="/root/orddept"/>
			<submission id="TXMMO14601" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" resultref="/root/temp"/>
			<!-- 처방 복사 로직변경 xml 2013.07.05 by 엄영만-->
			<submission id="TRMMO00150" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" resultref="/root/prcpcopy"/>
			<submission id="TRMMO00151" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/send" resultref="/root/temp"/>
			<submission id="TXMMO00120" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/monitoringlog/reqdata" resultref="/root/monitoringlog"/>
			<script type="javascript" ev:event="xforms-ready">
				<![CDATA[
					var prcpcd = model.getValue ( "/root/main/prcp/prcplist/prcpcd" );	// LBT25110 코드인 경우는 응급체크 disabled 요청 혈액은행 장현식선생님 20081110 by moonsh					
					if ( prcpcd == "LBT25110" ) {
						grd_prcpdetl1.colDisabled(grd_prcpdetl1.colRef("erprcpflag")) = true;
					}
					
					if ( prcpcd == "LBT20440" || prcpcd == "LBT20640" ) {
						grd_prcpdetl1.colDisabled(grd_prcpdetl1.colRef("irflag")) = true;
					}
					
    					var prcpgenrflag = opener.model.getValue ( "/root/patflag/list/prcpgenrflag" );
					var prcpkindcd = model.getValue ( "/root/main/prcp/prcplist/prcpkindcd" );
					
	    				if ( prcpgenrflag == "O" || prcpgenrflag == "S" ) { //외래
	    					orddd = opener.model.getValue ( "/root/paminfo/list/orddd" );
	    					radio3.value = "Y";       // T/F default로 Y
	    					radio2.value = "N";
	    					radio2.disabled = true; //Prep disabled
					} else { //입원, 응급, DSC
								orddd = opener.model.getValue ( "/root/paminfo/list/indd" );
							if ( prcpkindcd == "70" || prcpkindcd == "90" || prcpkindcd == "95" ) {
								radio3.value = "Y";       // T/F default로 Y
								radio2.value = "N";
								radio2.disabled = true; //Prep disabled							
							} else {							
								radio3.disabled = true; // T/F disabled
								radio3.value = "N";
								radio2.value = "Y";       // Prep default로 Y							
							}    
	    				}
    				
    				 	if ( opener.model.getValue ( "/root/usge" ) == "prcp" ) {
						model.setValue ( "/root/send/ioflag", opener.model.getValue ( "/root/patflag/list/prcpgenrflag" ));
						model.setValue ( "/root/send/pid"   , opener.model.getValue ( "/root/paminfo/list/pid" ));
						model.setValue ( "/root/send/orddd" , orddd );
						model.setValue ( "/root/send/cretno", opener.model.getValue ( "/root/paminfo/list/cretno" ));
						model.setValue ( "/root/send/prcpdd", opener.model.getValue ( "/root/init/prcpdd" ));
						model.setValue ( "/root/send/prcpcd", model.getValue ( "/root/main/prcp/prcplist/prcpcd" ));
						model.setValue ( "/root/send/instcd", getUserInfo( "dutplceinstcd" ));
						model.setValue ( "/root/send/ordnm" , model.getValue ( "/root/main/prcp/prcplist/orgprcpnm" ));
						model.setValue ( "/root/send/ordnm" , model.getValue ( "/root/main/prcp/prcplist/orgprcpnm" ));
						submit ( "TRMMO01501", false );
    
						var nodelist = model.instance1.selectNodes("/root/result/blodrslt5");
						
						if(nodelist.length == 0){ //본원에서 처음 수혈하는 경우
						} else { //본원에서 수혈이력이 있는 경우
		       					//rdo_seffectyn.disabled = true;
							var efectflag = model.getValue("/root/result/blodrslt5[tnssideeffect!=01]/tnssideeffect");
		
							if(efectflag.length == 0){ //부작용 정보가 없는 경우
								model.setValue("/root/init/seffectyn", "N");
							}else{    //부작용 정보가 있는 경우
									model.setValue("/root/init/seffectyn", "Y");
							}
						}
        			    
	        				if ( model.getValue ( "/root/result/blodrslt1/btypeyn" ) == "Y" ) {
	        				 	var btypecd = model.getValue ( "/root/result/blodrslt1/btypecd" );
	        					var prcpbtypecd = opener.model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + btypecd + "']/prcpcd" );
	        					//바탕화면에 값이 있으면 disable
	        					if ( !isNull(prcpbtypecd) ) {
	        						bool1.disabled = true;
	        						model.setValue ( "/root/result/blodrslt1/btypeyn", "N" );
	        					}
	        				} else {
	        					bool1.disabled = true;
	        				}
	    
	        				if ( model.getValue ( "/root/result/blodrslt1/astyn" ) == "Y" ) {
		            			 	var astcd = model.getValue  ( "/root/result/blodrslt1/astcd" );
		            			 	var prcpastcd = opener.model.getValue ( "/root/main/prcp/prcplist[prcpcd='" + astcd + "']/prcpcd" );
		            				//바탕화면에 값이 있으면 disable
		            				if ( !isNull(prcpastcd) ) {
		            					bool2.disabled = true;
		            					model.setValue ( "/root/result/blodrslt1/astyn", "N" );
		            				}
						} else {
							bool2.disabled = true;
						}
						
						// 2011.05.21 엄영만 수혈 동의서 안내문구 표시
						var srcBlodrslt6Nodes = model.instances(0).selectNodes( "/root/result/blodrslt6" );
						for ( var i= 1; i<=srcBlodrslt6Nodes.length ; i++){ 
							if(model.getValue ( "/root/result/blodrslt6[" + i + "]/scanyn" ) == "Y" &&  parseInt(model.getValue ( "/root/result/blodrslt6[" + i + "]/term" )) < 365) {
								var instcd = getUserInfo("dutplceinstcd");
								if(instcd != "031") { // 본원은 수혈 동의서 안내문 항상 표시 2016.05.03 엄영만
									cap_blodformmsg.visible = "false";
								}
								break;
							}
						}
						
	    			 	} else {
	        				bool1.disabled = true;
	        				bool2.disabled = true;
	    			 	}
    
	    				if ( model.getValue ( "/root/main/prcp/prcplist/irflag" ) == "N" ) {
	    				    radio1.disabled = true;
	    				}
    
	    				var prepprcpflag = model.getValue("/root/main/prcp/prcplist/prepprcpflag");
	    			    	var tnsuseflag = model.getValue("/root/main/prcp/prcplist/tnsuseflag");
    
	    			    	if ( isNull(tnsuseflag))
						model.setValue ( "/root/main/prcp/prcplist/tnsuseflag", 0 );
    
                    			//환자리스트에서 준 외래, 입원, 응급 구분
    		        		var prcpgenrflag = opener.model.getValue("/root/patflag/list/prcpgenrflag");
		    		        if ( prcpgenrflag == "O" ) {
		    		            grd_prcpdetl1.colDisabled ( grd_prcpdetl1.colref("tnsfiltflag"))	= true;
		    		        }
    
	    			    	//수술예약일자, 시간 SETTING
	    				var prcphopedd = model.getValue ( "/root/main/prcp/prcplist/prcphopedd" );
	    				model.setValue ( "/root/main/prcp/prcplist/prcphopedd", prcphopedd.substring(0,8));
	    				if ( prcphopedd.length > 8 ) {
	        				model.setValue ( "/root/init/prcphopeddh", prcphopedd.substring(8,10));
	        				model.setValue ( "/root/init/prcphopeddm", prcphopedd.substring(10,12));
	    				}
    
	    				if ( model.getValue ( "/root/main/prcp/prcplist/prepprcpflag" ) == "N") {
	        		 	       input2.disabled = false;
	        				input3.disabled = false;
	        				input4.disabled = false;
	    				}else{
	    					input2.disabled = true;
	    					input3.disabled = true;
	    					input4.disabled = true;
	    				}
					
	    				model.refresh();
						model.setfocus("button1");
	    			 	if ( opener.model.getValue ( "/root/usge" ) == "prcp" ) {					
							fChngGrdCellColor();
					}
				
				]]>
			</script>
			<submission id="TRMMO15701" mediatype="application/x-www-form-urlencoded" method="post" ref="/root/temp/send" resultref="/root/temp/patsupkind"/>
		</model>
		<script type="javascript" src="../../../com/commonweb/js/common.js"/>
		<script type="javascript" src="../../../com/commonweb/js/tfHelper.js"/>
		<script type="javascript" src="../../../com/commonweb/js/stringHelper.js"/>
		<script type="javascript" src="../../../com/commonweb/js/dateHelper.js"/>
		<script type="javascript" src="../../../com/basiccodeweb/js/ZBC001.js"/>
		<script type="javascript" src="../../../emr/prcpmngtweb/js/MMO001.js"/>
		<script type="javascript" src="../../../emr/prcpmngtweb/js/SMMMO00100.js"/>
		<script type="javascript" src="../../../com/departmentcodeweb/js/ZSD001.js"/>
		<script type="javascript">
			<![CDATA[
				function fChngGrdCellColor(){
					for(var currow = 1; currow < datagrid2.rows; currow++){
						var color = model.getValue("/root/result/blodrslt3"+ "[" + currow + "]/refcolor");
						if (color == "-") {
						} else  {
							datagrid2.rowStyle(currow, "data", "background-color") = "#" + color;        							
						}
					}					
					datagrid2.refresh();
				}				
			]]>
		</script>
	</xhtml:head>
	<xhtml:body pagewidth="814" pageheight="520" guideline="2,507;1,797;2,186;" style="margin-left:8; margin-top:0; margin-right:8; margin-bottom:0; ">
		<caption id="caption22" class="tit_2" style="left:2px; top:444px; width:82px; height:13px; ">전달사항</caption>
		<button id="button1" class="btn4_letter2" style="left:680px; top:482px; width:56px; height:22px; ">
			<caption>확인</caption>
			<script type="javascript" ev:event="onclick">
				<![CDATA[
    			    //본원 최초 수혈시, 부작용 여부 입력 2008.06.02 오지훈
					/*
    				if(rdo_seffectyn.value == ""){
    					messageBox("과거 수혈 부작용 여부를", "C002");
    					return;
    				}*/
    
    		        //수혈적응증
					if ( opener.model.getValue ( "/root/usge" ) == "prcp" ) {
						model.getValue ( "/root/main/prcp/prcplist/irpayflag" );
						
						var dispyn =  model.getValue ( "/root/result/blodrslt4/dispyn" );
						if ( !isNull(dispyn)) {
							if ( dispyn == "Y" ) {
								var xpt = window.screenleft;
								var ypt = window.screenTop;
								var coord = getRelativeCoordinate ( xpt, ypt );
								var mon = coord[0];
								xpt = coord[1];
								ypt = coord[2];
								modal ( "SPMMO14600", mon,  xpt, ypt, "prcpdetl",  "/root/result/blodrslt4",  "/root/result/blodrslt4", "", false );
								if ( getParameter ( "SPMMO14600_rtnyn" ) != "Y" ) {
									model.setValue ( "/root/main/prcp/prcplist/tempcol6", "D" );
									opener.javascript.setParameter ( "SPMMO01500_bprcpadapt", "D" );
									window.close();
								}
								
							} else {
								var saveNode = model.instances(0).selectNodes( "/root/result/blodrslt4" );
								model.setValue ( "/root/send/cond1", getNodeListCSV(saveNode));
								submit ( "TXMMO14601", false );
							}
						}
						var prcphopedd = model.getValue ( "/root/main/prcp/prcplist/prcphopedd" );
						var prcphopeddh = model.getValue ( "/root/init/prcphopeddh" );
						var prcphopeddm = model.getValue ( "/root/init/prcphopeddm" );
		
						if ( !isValidDateTime ( prcphopedd, "YYYYMMDD")) { messageBox ( "수혈예정일시가", "E016" ); return;}
		
						if ( eval(prcphopeddh) >= 24 ) {
							messageBox ( "수혈예정시간이", "E016" );
							return;
						}
						if ( eval(prcphopeddm) >= 60 ) {
							messageBox ( "수혈예정분이", "E016" );
							return;
						}
		
						prcphopeddh = prcphopeddh.toString().getLeftPad ( 2, "0" );
						prcphopeddm = prcphopeddm.toString().getLeftPad ( 2, "0" );
		
						model.setValue ( "/root/main/prcp/prcplist/prcphopedd", prcphopedd + prcphopeddh + prcphopeddm + "00"  );
						appendChildPrcp ( "/root/main/prcp/prcplist", "/root/prcptemp" );
						var cnt = 0;
						if ( model.getValue ( "/root/result/blodrslt1/btypeyn" ) == "Y" ) {
							var prcpcd = model.getValue ( "/root/result/blodrslt1/btypecd" );
							if ( prcpcd != "-" ) {
								if ( !isNull(opener.model.getValue ( "/root/init/prcpdd" ))) {
									var prcpdd = opener.model.getValue ( "/root/init/prcpdd" );
								} else {
									var prcpdd = getCurrentDate();
								}
								fPrcpSrchCom ( prcpcd,  prcpdd, opener.model.getValue ( "/root/paminfo/list/insukind"), "TRMMO00100", "-", false, "getPrcpCdSrchInfo" );
								model.setValue ( "/root/prcpsrch/prcplist/status", "I" );
								appendChildPrcp ( "/root/prcpsrch/prcplist", "/root/prcptemp", "main" );
								cnt++;
							}
						}
		
						if ( model.getValue ( "/root/result/blodrslt1/astyn" ) == "Y" ) {
							var prcpcd = model.getValue ( "/root/result/blodrslt1/astcd" );
							if ( prcpcd != "-" ) {
								if ( !isNull(opener.model.getValue ( "/root/init/prcpdd" ))) {
									var prcpdd = opener.model.getValue ( "/root/init/prcpdd" );
								} else {
									var prcpdd = getCurrentDate();
								}
								fPrcpSrchCom ( prcpcd,  prcpdd, opener.model.getValue ( "/root/paminfo/list/insukind"), "TRMMO00100", "-", false, "getPrcpCdSrchInfo" );
								model.setValue ( "/root/prcpsrch/prcplist/status", "I" );
								appendChildPrcp ( "/root/prcpsrch/prcplist", "/root/prcptemp", "main" );
								cnt++;
							}
						}
		
						if ( cnt > 0 ) {
							addPrcp ( "child", "/root/prcptemp/prcplist", "/root/main/prcp",  "Y", "status", "I", grd_prcpdetl1, "Y", "00");
							opener.javascript.setParameter ( "SPMMO01500_addcnt", cnt );
						}
					} else {
						appendChildPrcp ( "/root/main/prcp/prcplist", "/root/prcptemp" );						
					}
                    model.close();
				]]>
			</script>
			<script type="javascript" ev:event="onkeydown">
				<![CDATA[
				if(event.keyCode == "13") {
					button1.dispatch("onclick");
				}
			]]>
			</script>
		</button>
		<button id="button2" class="btn4_letter2" style="left:739px; top:482px; width:56px; height:22px; ">
			<caption>취소</caption>
			<script type="javascript" ev:event="onclick">
				<![CDATA[
				model.close();
				]]>
			</script>
		</button>
		<line id="line7" class="line_1" style="x1:2px; y1:0px; x2:798px; y2:0px; "/>
		<datagrid id="grd_prcpdetl1" nodeset="/root/main/prcp/prcplist" caption="수량^응급^Irr^Irr^필터^Prep^T/F^사용목적^검체(용량)^급여^수혈예정일시^시행부서^DRG인정^기왕증" colsep="^" colwidth="32, 32, 26, 100, 0, 35, 35, 80, 75, 65, 136, 75, 60, 45" dataheight="23" defaultrows="12" extendlastcol="scroll" mergecellsfixedrows="bycolrec" rowheight="23" rowsep="|" selectionmode="free" style="left:2px; top:5px; width:796px; height:49px; ">
			<col imemode="disabled" ref="prcpqty" type="input" format="#,###" style="text-align:center; "/>
			<col checkvalue="Y,N" disabled="false" ref="erprcpflag" type="checkbox" style="text-align:center; "/>
			<col checkvalue="Y,N" ref="irflag" type="checkbox" style="text-align:left; "/>
			<col checkvalue="Y,N" ref="tnsfiltflag"/>
			<col checkvalue="Y,N" ref="tnsfiltflag" type="checkbox" visibility="hidden"/>
			<col/>
			<col/>
			<col class="gridcombo" ref="tnsuseflag" type="combo">
				<choices>
					<itemset nodeset="/root/init/tnsuseflag/M0039">
						<label ref="cdnm"/>
						<value ref="cdid"/>
					</itemset>
				</choices>
			</col>
			<col ref="drugmthdspccdnm"/>
			<col class="gridcombo" ref="payflagcd" type="combo" style="text-align:left; ">
				<choices>
					<itemset nodeset="/root/init/payflagcd/M0029">
						<label ref="cdnm"/>
						<value ref="cdid"/>
					</itemset>
				</choices>
			</col>
			<col format="yyyy-mm-dd" style="text-align:center; "/>
			<!--				
			<script type="javascript" ev:event="ondblclick">
    			<![CDATA[
                    fPrcpHopeDd( grd_prcpdetl1, "/root/main/prcp/prcplist" , "child", "prcphopedd" );
    	        ]]>
			</script>
			</col>
			-->
			<col class="gridcombo" itemcount="30" ref="prcpexecdeptcd" type="combo">
				<choices>
					<itemset nodeset="/root/orddept/dept">
						<label ref="depthngnm"/>
						<value ref="deptcd"/>
					</itemset>
				</choices>
			</col>
			<col class="gridcombo" ref="drgacptflag" type="combo" style="text-align:center; ">
				<choices>
					<itemset nodeset="/root/init/drgacptflag/P0506">
						<label ref="cdnm"/>
						<value ref="cdid"/>
					</itemset>
				</choices>
			</col>
			<col checkvalue="Y,N" ref="anamneflag" type="checkbox"/>
			<script type="javascript" ev:event="onstartedit">
				<![CDATA[
					if ( grd_prcpdetl1.col == 0 ) {
			            bfDrugCalc ( "prcpqty", grd_prcpdetl1.row );
				    }
				]]>
			</script>
			<script type="javascript" ev:event="xforms-value-changed">
				<![CDATA[

					if ( grd_prcpdetl1.col == 0 ) {
    				    DrugCalc ( "prcpqty" , grd_prcpdetl1.row);
						
				    } else if ( grd_prcpdetl1.col == 2 ) {
						if ( model.getValue ( "/root/main/prcp/prcplist/irflag" ) == "N" ) {
							model.setValue ( "/root/main/prcp/prcplist/irpayflag", "N" );
							radio1.disabled = true;
							model.refresh();
						} else {
							model.setValue ( "/root/main/prcp/prcplist/irpayflag", "0" );
							radio1.disabled = false;
							model.refresh();
						}
						
				    } else if ( grd_prcpdetl1.col == grd_prcpdetl1.colRef("anamneflag")){
						var prcpgenrflag = opener.model.getValue("/root/patflag/list/prcpgenrflag");
						var anamneflag = grd_prcpdetl1.valueMatrix(1, grd_prcpdetl1.colRef("anamneflag"));
						if(prcpgenrflag == "I" || prcpgenrflag == "D" || prcpgenrflag == "E"){
							if(anamneflag == "Y"){ //기왕증이 Y로 처리된 경우에만 보조유형선택 팝업 open
								var pid = opener.model.getValue("/root/paminfo/list/pid");
								var indd = opener.model.getValue("/root/paminfo/list/indd");
								
								var subcretno = fGetSubcretno(pid, indd, "anamneflag");
								model.setValue("/root/main/prcp/prcplist/subcretno", subcretno);
								if(subcretno == "0"){
									messageBox ( "환자의 부유형이 없거나 또는 선택되지 않았습니다.", "I999" );
									grd_prcpdetl1.valueMatrix(1, grd_prcpdetl1.colRef("anamneflag")) = "N";
								}
							}else{ //기왕증이 N로 처리된 경우에는 subcretno 0로 처리
								model.setValue("/root/main/prcp/prcplist/subcretno", "0");							
							}
						} else {
							messageBox ( "외래 환자는 기왕증을 선택 할 수", "I004" );
							grd_prcpdetl1.valueMatrix(1, grd_prcpdetl1.colRef("anamneflag")) = "N";
						}
					} else if ( grd_prcpdetl1.col == grd_prcpdetl1.colref("drgacptflag")) {
						if ( model.getValue ( "/root/main/prcp/prcplist/drgacptflag" ) == "A" )  { // PCA용 약제
							messageBox ( "급여구분이 '본인부담'으로 변경 됩니다.", "I" );
							model.setValue ( "/root/main/prcp/prcplist/payflagcd", "1" );
						} else if ( model.getValue ( "/root/main/prcp/prcplist/drgacptflag" ) == "B" )  { // 미용성형
							messageBox ( "급여구분이 '비급여'로 변경 됩니다.", "I" );
							model.setValue ( "/root/main/prcp/prcplist/payflagcd", "2" );
						} 
					}
					
					model.refresh();
				]]>
			</script>
		</datagrid>
		<input id="input1" ref="/root/main/prcp/prcplist/prcpdelivefact" style="left:2px; top:461px; width:796px; height:19px; "/>
		<datagrid id="datagrid1" nodeset="/root/patinfo/patinfolist" caption="환자 검사 정보^환자 검사 정보^환자 검사 정보^환자 예약 정보^환자 예약 정보" colsep="^" colwidth="70, 70, 223, 302, 90" ellipsis="true" extendlastcol="scroll" mergecellsfixedrows="bycolrec" rowsep="|" tooltip="true" style="left:2px; top:85px; width:796px; height:71px; ">
			<col ref="bloodtype" style="text-align:center; "/>
			<col ref="ast" style="text-align:center; "/>
			<col ref="aborhchk" style="text-align:center; "/>
			<col ref="prcpnm" style="text-align:center; "/>
			<col ref="deliveposs" style="text-align:center; "/>
		</datagrid>
		<caption id="caption1" class="tit_2" style="left:2px; top:62px; width:82px; height:13px; ">환자정보</caption>
		<line id="line1" class="line_1" style="x1:2px; y1:80px; x2:798px; y2:80px; "/>
		<select1 id="radio1" ref="/root/main/prcp/prcplist/irpayflag" appearance="full" cols="2" overflow="visible" style="left:93px; top:31px; width:100px; height:20px; border-style:none; ">
			<choices>
				<itemset nodeset="/root/init/irpayflag/M0044">
					<label ref="cdnm"/>
					<value ref="cdid"/>
				</itemset>
			</choices>
		</select1>
		<caption id="caption2" class="tit_2" style="left:2px; top:240px; width:193px; height:13px; ">수혈처방 관련 검사 결과 조회</caption>
		<line id="line2" class="line_1" style="x1:2px; y1:257px; x2:798px; y2:257px; "/>
		<datagrid id="datagrid2" nodeset="/root/result/blodrslt3" caption="검사일시^검사명^결과^단위^+/-^Min^Max" colsep="^" colwidth="130, 234, 100, 80, 70, 70, 54" ellipsis="true" extendlastcol="scroll" mergecellsfixedrows="bycolrec" rowsep="|" tooltip="true" style="left:2px; top:262px; width:796px; height:94px; ">
			<col ref="lastreptdt" format="yyyy-mm-dd hh:mm:ss" style="text-align:center; "/>
			<col ref="tclsscrnnm"/>
			<col ref="reptrslt"/>
			<col ref="rsltunit"/>
			<col ref="refrslt"/>
			<col ref="refl"/>
			<col ref="refh"/>
		</datagrid>
		<caption id="caption3" ref="/root/result/blodrslt2/prcpnm" style="left:371px; top:134px; width:294px; height:21px; "/>
		<caption id="caption4" ref="/root/result/blodrslt2/delivepossqty" style="left:669px; top:134px; width:90px; height:20px; text-align:center; "/>
		<bool id="bool1" checkvalue="Y,N" ref="/root/result/blodrslt1/btypeyn" style="left:152px; top:133px; width:25px; height:20px; "/>
		<caption id="caption5" style="left:176px; top:133px; width:60px; height:20px; ">ABO/Rh</caption>
		<bool id="bool2" checkvalue="Y,N" ref="/root/result/blodrslt1/astyn" style="left:255px; top:133px; width:25px; height:20px; "/>
		<caption id="caption6" style="left:279px; top:133px; width:31px; height:20px; ">AST</caption>
		<caption id="caption7" ref="/root/result/blodrslt1/btyperslt" style="left:5px; top:133px; width:67px; height:21px; text-align:center; "/>
		<caption id="caption8" ref="/root/result/blodrslt1/astrslt" style="left:72px; top:133px; width:70px; height:20px; text-align:center; "/>
		<select1 id="radio2" ref="/root/main/prcp/prcplist/prepprcpflag" appearance="full" overflow="visible" style="left:199px; top:32px; width:20px; height:18px; border-style:none; ">
			<choices>
				<item>
					<label/>
					<value>Y</value>
				</item>
			</choices>
			<script type="javascript" ev:event="xforms-value-changed">
				<![CDATA[
				if ( model.getValue ( "/root/main/prcp/prcplist/prepprcpflag" ) == "Y") {
				    model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "Y" );
				    input2.disabled = true;
				    input3.disabled = true;
				    input4.disabled = true;
				} else {
				    model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "N" );
				    input2.value = getCurrentDate();
				    input3.value = "00";
				    input4.value = "00";
				    input2.disabled = false;
				    input3.disabled = false;
				    input4.disabled = false;
				}
				]]>
			</script>
		</select1>
		<select1 id="radio3" ref="/root/main/prcp/prcplist/prepprcpflag" appearance="full" overflow="visible" style="left:234px; top:32px; width:20px; height:18px; border-style:none; ">
			<choices>
				<item>
					<label/>
					<value>N</value>
				</item>
			</choices>
			<script type="javascript" ev:event="xforms-value-changed">
				<![CDATA[
				if ( model.getValue ( "/root/main/prcp/prcplist/prepprcpflag" ) == "Y") {
				    model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "Y" );
				    input2.disabled = false;
				    input3.disabled = false;
				    input4.disabled = false;
				} else {
				    model.setValue ( "/root/main/prcp/prcplist/tempprcpflag", "N" );
				    input2.value = getCurrentDate();
				    input3.value = "00";
				    input4.value = "00";
				    input2.disabled = true;
				    input3.disabled = true;
				    input4.disabled = true;
				}
				]]>
			</script>
		</select1>
		<button id="button4" class="icon_search" style="left:76px; top:447px; width:16px; height:16px; ">
			<caption/>
			<script type="javascript" ev:event="DOMActivate">
				<![CDATA[
					setParameter ( "SPMMB02200_cond2", "3" );
					fPrcpModal ( "SPMMB02200", 50, 50 );
					model.setValue ( "/root/main/prcp/prcplist/prcpdelivefact", getParameter ( "SPMMB02200_clinccmt" ));
					model.refresh();
				]]>
			</script>
		</button>
		<input id="input2" ref="/root/main/prcp/prcplist/prcphopedd" inputtype="date" format="yyyy-mm-dd" style="left:484px; top:31px; width:86px; height:19px; "/>
		<input id="input3" ref="/root/init/prcphopeddh" imemode="disabled" maxlength="2" format="hh" style="left:571px; top:31px; width:22px; height:19px; text-align:center; "/>
		<input id="input4" ref="/root/init/prcphopeddm" imemode="disabled" maxlength="2" format="nn" style="left:595px; top:31px; width:22px; height:19px; text-align:center; "/>
		<button id="btn_srchexecdept" class="icon_search" style="left:679px; top:8px; width:16px; height:16px; ">
			<caption/>
			<script type="javascript" ev:event="DOMActivate">
				<![CDATA[
					modal("SPMMB02500");
				]]>
			</script>
		</button>
		<caption id="caption9" class="tit_2" style="left:0px; top:160px; width:193px; height:14px; ">과거 수혈 부작용</caption>
		<datagrid id="datagrid4" nodeset="/root/result/blodrslt5" caption="수혈 부작용" colsep="^" colwidth="613" extendlastcol="scroll" mergecellsfixedrows="bycolrec" rowsep="|" style="left:2px; top:180px; width:794px; height:48px; ">
			<col disabled="true" ref="tnssideeffect" type="combo">
				<choices>
					<itemset nodeset="/root/init/M0330/M0330">
						<label ref="cdnm"/>
						<value ref="cdid"/>
					</itemset>
				</choices>
			</col>
		</datagrid>
		<line id="line3" class="line_1" style="x1:2px; y1:175px; x2:797px; y2:175px; "/>
		<caption id="caption10" class="tit_2" style="left:0px; top:370px; width:193px; height:13px; ">수혈 동의서 (최근2년)</caption>
		<line id="line4" class="line_1" style="x1:1px; y1:385px; x2:798px; y2:385px; "/>
		<datagrid id="datagrid3" nodeset="/root/result/blodrslt6" caption="상태^출력일^Scan^내원구분^진료(입원)일^진료과^진료의^서식명^OCRTAG" colsep="^" colwidth="54, 73, 38, 60, 79, 144, 62, 140, 119" ellipsis="true" extendlastcol="scroll" mergecellsfixedrows="bycolrec" rowsep="|" tooltip="true" style="left:0px; top:388px; width:796px; height:53px; ">
			<col ref="statnm" style="text-align:center; "/>
			<col ref="fstrgstdt" format="yyyy-mm-dd" style="text-align:center; "/>
			<col ref="scanyn" style="text-align:center; "/>
			<col ref="ioflag" style="text-align:center; "/>
			<col ref="orddd" format="yyyy-mm-dd" style="text-align:center; "/>
			<col ref="orddeptnm"/>
			<col ref="orddrnm" style="text-align:center; "/>
			<col ref="formnm"/>
			<col ref="ocrtag" style="text-align:center; "/>
		</datagrid>
		<caption id="cap_blodformmsg" style="left:160px; top:355px; width:637px; height:30px; font-weight:bold; color:#ff0000; vertical-align:bottom; ">※ 첫 수혈시와 그 후 1년마다 수혈 동의서를 받아야 하며 동의서가 없는 경우 혈액이 불출되지 않습니다.</caption>
		<button id="button10" class="btn1_letter5" style="left:10px; top:485px; width:92px; height:22px; ">
			<caption>수혈동의서</caption>
			<script type="javascript" ev:event="DOMActivate">
				<![CDATA[
					modal( "SMMRF02300" );
				]]>
			</script>
		</button>
	</xhtml:body>
</xhtml:html>