YNU_JEUS/app_home/himed/webapps/ast/pharmacyconsultweb/xrw/SPADC62800_한국형알고리즘V20.xrw

<?xml version="1.0" encoding="EUC-KR"?>
<?xml-stylesheet type="text/css" href="../../../com/commonweb/css/common.css" ?>
<xhtml:html xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.w3.org/2002/01/xforms" xmlns:ev="http://www.w3.org/2001/xml-events">
	<xhtml:head>
		<xhtml:title>한국형 알고리즘 V20</xhtml:title>
		<model id="model1">
			<instance id="instance1">
				<root xmlns="">
					<main>
						<koalgolist>
							<koralgoinfo>
								<cmt>시작적 선후관계</cmt>
								<req>약물 투여와 유해사례 발현의 선후관계에 관한 정보가 있는가?</req>
								<ans>시간적 선후관계 합당</ans>
								<scor>+3</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>시작적 선후관계</cmt>
								<req>약물 투여와 유해사례 발현의 선후관계에 관한 정보가 있는가?</req>
								<ans>선후관계 모순</ans>
								<scor>-3</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>시작적 선후관계</cmt>
								<req>약물 투여와 유해사례 발현의 선후관계에 관한 정보가 있는가?</req>
								<ans>정보없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>감량 또는 중단</cmt>
								<req>감량 또는 중단에 대한 정보가 있는가?</req>
								<ans>감량 또는 중단 후 임상적 호전이 관찰됨</ans>
								<scor>+3</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>감량 또는 중단</cmt>
								<req>감량 또는 중단에 대한 정보가 있는가?</req>
								<ans>감량 또는 중단과 무관한 임상경과를 보임</ans>
								<scor>-2</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>감량 또는 중단</cmt>
								<req>감량 또는 중단에 대한 정보가 있는가?</req>
								<ans>감량 또는 중단을 시행하지 않음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>감량 또는 중단</cmt>
								<req>감량 또는 중단에 대한 정보가 있는가?</req>
								<ans>정보없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>유해사례의 과거력</cmt>
								<req>이전에 동일한 또는 유사한 약물로 유해사례를 경험한 적이 있는가?</req>
								<ans>예</ans>
								<scor>+1</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>유해사례의 과거력</cmt>
								<req>이전에 동일한 또는 유사한 약물로 유해사례를 경험한 적이 있는가?</req>
								<ans>아니오</ans>
								<scor>-1</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>유해사례의 과거력</cmt>
								<req>이전에 동일한 또는 유사한 약물로 유해사례를 경험한 적이 있는가?</req>
								<ans>정보없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>병용약물</cmt>
								<req>병용약물에 대한 정보가 있는가?</req>
								<ans>병용약물로 유해사례를 설명할 수 없는 경우</ans>
								<scor>+2</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>병용약물</cmt>
								<req>병용약물에 대한 정보가 있는가?</req>
								<ans>병용약물 단독으로 설명할 수 있는 경우</ans>
								<scor>-3</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>병용약물</cmt>
								<req>병용약물에 대한 정보가 있는가?</req>
								<ans>의심약물과 상호작용으로 설명되는 경우</ans>
								<scor>+2</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>병용약물</cmt>
								<req>병용약물에 대한 정보가 있는가?</req>
								<ans>병용약물에 대한 설명이 없는 경우</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>병용약물</cmt>
								<req>병용약물에 대한 정보가 있는가?</req>
								<ans>정보없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>비약물요인</cmt>
								<req>비약물요인에 대한 정보가 있는가?</req>
								<ans>비약물요인으로 유해사례가 설명되지 않음</ans>
								<scor>+1</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>비약물요인</cmt>
								<req>비약물요인에 대한 정보가 있는가?</req>
								<ans>비약물요인으로 유해사례가 설명됨</ans>
								<scor>-1</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>비약물요인</cmt>
								<req>비약물요인에 대한 정보가 있는가?</req>
								<ans>정보없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>약물에 대해 알려진 정보</cmt>
								<req/>
								<ans>허가사항(label, insert 등)에 반영되어 있음</ans>
								<scor>+3</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>약물에 대해 알려진 정보</cmt>
								<req/>
								<ans>허가사항에 반영되어 있지 않으나 증례보고가 있었음</ans>
								<scor>+2</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>약물에 대해 알려진 정보</cmt>
								<req/>
								<ans>알려진바 없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>재투약</cmt>
								<req>약물 재투여에 관한 정보가 있는가?</req>
								<ans>재투약으로 동일한 유해사례가 발생함</ans>
								<scor>+3</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>재투약</cmt>
								<req>약물 재투여에 관한 정보가 있는가?</req>
								<ans>재투약으로 동일한 유해사례가 발생하지 않음</ans>
								<scor>-2</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>재투약</cmt>
								<req>약물 재투여에 관한 정보가 있는가?</req>
								<ans>재투약하지 않음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>재투약</cmt>
								<req>약물 재투여에 관한 정보가 있는가?</req>
								<ans>정보없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>특이적인 검사</cmt>
								<req>약물검사, 약물농도 검사와 같은 특이적인 검사를 시행하였는가?</req>
								<ans>양성</ans>
								<scor>+3</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>특이적인 검사</cmt>
								<req>약물검사, 약물농도 검사와 같은 특이적인 검사를 시행하였는가?</req>
								<ans>음성</ans>
								<scor>-1</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>특이적인 검사</cmt>
								<req>약물검사, 약물농도 검사와 같은 특이적인 검사를 시행하였는가?</req>
								<ans>결과를 알 수 없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
							<koralgoinfo>
								<cmt>특이적인 검사</cmt>
								<req>약물검사, 약물농도 검사와 같은 특이적인 검사를 시행하였는가?</req>
								<ans>정보없음</ans>
								<scor>0</scor>
								<chk/>
							</koralgoinfo>
						</koalgolist>
					</main>
					<send>
						<data>
							<totscr/>
							<casrslt/>
						</data>
					</send>
					<popdata>
						<casrslt/>
						<totscr/>
						<koralgo/>
					</popdata>
					<init/>
					<hidden/>
				</root>
			</instance>
			<script type="javascript" ev:event="xforms-ready">
				<![CDATA[
					grd_koralgo.mergeCells = "bycol";
					grd_koralgo.mergeCol(grd_koralgo.colRef("cmt")) = true;
					grd_koralgo.mergeCol(grd_koralgo.colRef("req")) = true;
					grd_koralgo.mergeCol(grd_koralgo.colRef("scor")) = false;
					grd_koralgo.mergeCol(grd_koralgo.colRef("chk")) = false;
					grd_koralgo.autoResize = true;
					
					var iscr = model.getValue("/root/popdata/koralgo");
					var comArray = iscr.split("^");
					
					if (comArray[0] != ""){
						for(i=1; i<comArray.length; i++) {
							
							if(comArray[i] != "") {
								model.setValue("/root/main/koalgolist/koralgoinfo["+ comArray[i] +"]/chk", "Y");
							}
								
						}
					}
					
					fSetCalc();
					model.refresh();
					
				]]>
			</script>
			<script type="javascript" src="../../../com/commonweb/js/common.js"/>
			<script type="javascript" src="../../../com/commonweb/js/tfHelper.js"/>
			<script type="javascript">
				<![CDATA[
					function fSetCalc(){
						var iTotScor = 0;
						
						for(var iRowNo = 1 ; iRowNo <= getNodesetCount("/root/main/koalgolist/koralgoinfo") ; iRowNo++) {
							if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iRowNo +"]/chk") == "Y") {
								iTotScor += Number(model.getValue("/root/main/koalgolist/koralgoinfo["+ iRowNo +"]/scor"));
							}
						}
						
						model.setValue("/root/send/data/totscr", iTotScor);
						
						if(iTotScor >= 12) {
							model.setValue("/root/send/data/casrslt", "1");
						} else if(6 <= iTotScor && iTotScor<= 11) {
							model.setValue("/root/send/data/casrslt", "2");
						} else if(2 <= iTotScor && iTotScor<= 5) {
							model.setValue("/root/send/data/casrslt", "3");
						} else {
							model.setValue("/root/send/data/casrslt", "4");
						}
						
						
					}
					
					function fSetChk(){
						
						var iRowNo = grd_koralgo.row;
						
						if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iRowNo +"]/chk") != "Y") {
							return;
						}
						
						if(1 <= iRowNo && iRowNo <= 3) {
							model.setValue("/root/main/koalgolist/koralgoinfo[1]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[2]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[3]/chk", "N");
						} else if(4 <= iRowNo && iRowNo <= 7) {
							model.setValue("/root/main/koalgolist/koralgoinfo[4]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[5]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[6]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[7]/chk", "N");
						} else if(8 <= iRowNo && iRowNo <= 10) {
							model.setValue("/root/main/koalgolist/koralgoinfo[8]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[9]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[10]/chk", "N");
						} else if(11 <= iRowNo && iRowNo <= 15) {
							model.setValue("/root/main/koalgolist/koralgoinfo[11]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[12]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[13]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[14]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[15]/chk", "N");
						} else if(16 <= iRowNo && iRowNo <= 18) {
							model.setValue("/root/main/koalgolist/koralgoinfo[16]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[17]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[18]/chk", "N");
						} else if(19 <= iRowNo && iRowNo <= 21) {
							model.setValue("/root/main/koalgolist/koralgoinfo[19]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[20]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[21]/chk", "N");
						} else if(22 <= iRowNo && iRowNo <= 25) {
							model.setValue("/root/main/koalgolist/koralgoinfo[22]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[23]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[24]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[25]/chk", "N");
						} else {
							model.setValue("/root/main/koalgolist/koralgoinfo[26]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[27]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[28]/chk", "N");
							model.setValue("/root/main/koalgolist/koralgoinfo[29]/chk", "N");
						}
						
						model.setValue("/root/main/koalgolist/koralgoinfo["+ iRowNo +"]/chk", "Y");
					}
				]]>
			</script>
		</model>
	</xhtml:head>
	<xhtml:body pagewidth="685" pageheight="775" guideline="1,1194;2,751;1,650;" style="margin-left:8; margin-top:0; margin-right:8; margin-bottom:0; ">
		<group id="grp_biz" scroll="auto" style="left:0px; top:0px; width:650px; height:725px; ">
			<caption id="caption1" class="tit_2" style="left:5px; top:11px; width:210px; height:14px; ">한국형 알고리즘 V2.0</caption>
			<line id="line1" class="line_1" style="x1:0px; y1:26px; x2:650px; y2:26px; "/>
			<shape id="roundrect2" appearance="roundrect" ellipsewidth="10" ellipseheight="10" style="left:0px; top:690px; width:650px; height:30px; background-color:transparent; border-color:#7cbbdd; border-style:solid; "/>
			<caption id="caption51" style="left:123px; top:698px; width:81px; height:14px; vertical-align:middle; ">
				<![CDATA[Unlikely : <= 1]]>
			</caption>
			<caption id="caption47" class="cell_2" style="left:15px; top:695px; width:70px; height:20px; ">범     례</caption>
			<caption id="caption49" class="color_2" style="left:105px; top:697px; width:15px; height:15px; "/>
			<caption id="caption4" style="left:243px; top:698px; width:84px; height:14px; vertical-align:middle; ">Possible : 2~5</caption>
			<caption id="caption5" class="color_2" style="left:225px; top:697px; width:15px; height:15px; "/>
			<caption id="caption6" style="left:363px; top:698px; width:91px; height:14px; vertical-align:middle; ">Probable : 6~11</caption>
			<caption id="caption7" class="color_2" style="left:345px; top:697px; width:15px; height:15px; "/>
			<caption id="caption8" style="left:483px; top:698px; width:85px; height:14px; vertical-align:middle; ">
				<![CDATA[Certain : >= 12]]>
			</caption>
			<caption id="caption9" class="color_2" style="left:465px; top:697px; width:15px; height:15px; "/>
			<datagrid id="grd_koralgo" nodeset="/root/main/koalgolist/koralgoinfo" caption="^^^^" colsep="^" colwidth="111, 182, 300, 28, 27" mergecellsfixedrows="bycolrec" rowsep="|" style="left:0px; top:31px; width:650px; height:629px; ">
				<col ref="cmt"/>
				<col ref="req"/>
				<col ref="ans"/>
				<col ref="scor"/>
				<col checkvalue="Y,N" ref="chk" type="checkbox"/>
				<script type="javascript" ev:event="xforms-value-changed">
					<![CDATA[
						if(grd_koralgo.col == grd_koralgo.colRef("chk")) {
							fSetChk();
							fSetCalc();
							
							model.refresh();
						}
					]]>
				</script>
			</datagrid>
			<caption id="caption2" class="tit_2" style="left:0px; top:669px; width:132px; height:13px; ">Total Score</caption>
			<caption id="caption3" class="tit_2" style="left:255px; top:669px; width:80px; height:13px; ">인과관계</caption>
			<select1 id="combo5" ref="/root/send/data/casrslt" class="combo_default" disabled="true" appearance="minimal" style="left:330px; top:666px; width:320px; height:19px; ">
				<choices>
					<item>
						<label>Certain</label>
						<value>1</value>
					</item>
					<item>
						<label>probable</label>
						<value>2</value>
					</item>
					<item>
						<label>possible</label>
						<value>3</value>
					</item>
					<item>
						<label>unlikely</label>
						<value>4</value>
					</item>
				</choices>
			</select1>
			<output id="input3" ref="/root/send/data/totscr" class="output_fix" appearance="output" style="left:100px; top:666px; width:95px; height:19px; font-weight:bold; text-align:right; "/>
		</group>
		<group id="grp_btn" scroll="auto" style="left:25px; top:725px; width:625px; height:27px; ">
			<button id="btn_cls" class="btn4_letter2" style="left:569px; top:5px; width:56px; height:22px; ">
				<caption>닫기</caption>
				<close ev:event="DOMActivate"/>
			</button>
			<button id="btn_cfm" class="btn4_letter2" style="left:510px; top:5px; width:56px; height:22px; ">
				<caption>확인</caption>
				<script type="javascript" ev:event="DOMActivate">
					<![CDATA[
					
					
						var skorAlgo = "v20";
						var sTemp = "";
						
						for(var iRowNo = 1 ; iRowNo <= 8 ; iRowNo++) {
							
							if(iRowNo == 1) {
								sTemp = "";
								for(var iNo = 1 ; iNo <= 3 ; iNo++) {
									if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iNo +"]/chk") == "Y") {
										sTemp = iNo;
									}
								}
								skorAlgo += "^" + sTemp;
							} else if(iRowNo == 2) {
								sTemp = "";
								for(var iNo = 4 ; iNo <= 7 ; iNo++) {
									if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iNo +"]/chk") == "Y") {
										sTemp = iNo;
									}
								}
								skorAlgo += "^" + sTemp;
							} else if(iRowNo == 3) {
								sTemp = "";
								for(var iNo = 8 ; iNo <= 10 ; iNo++) {
									if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iNo +"]/chk") == "Y") {
										sTemp = iNo;
									}
								}
								skorAlgo += "^" + sTemp;
							} else if(iRowNo == 4) {
								sTemp = "";
								for(var iNo = 11 ; iNo <= 15 ; iNo++) {
									if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iNo +"]/chk") == "Y") {
										sTemp = iNo;
									}
								}
								skorAlgo += "^" + sTemp;
							} else if(iRowNo == 5) {
								for(var iNo = 16 ; iNo <= 18 ; iNo++) {
									if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iNo +"]/chk") == "Y") {
										sTemp = iNo;
									}
								}
								skorAlgo += "^" + sTemp;
							} else if(iRowNo == 6) {
								sTemp = "";
								for(var iNo = 19 ; iNo <=21 ; iNo++) {
									if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iNo +"]/chk") == "Y") {
										sTemp = iNo;
									}
								}
								skorAlgo += "^" + sTemp;
							} else if(iRowNo == 7) {
								sTemp = "";
								for(var iNo = 22 ; iNo <= 25 ; iNo++) {
									if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iNo +"]/chk") == "Y") {
										sTemp = iNo;
									}
								}
								skorAlgo += "^" + sTemp;
							} else{
								sTemp = "";
								for(var iNo = 26 ; iNo <= 29 ; iNo++) {
									if(model.getValue("/root/main/koalgolist/koralgoinfo["+ iNo +"]/chk") == "Y") {
										sTemp = iNo;
									}
								}
								skorAlgo += "^" + sTemp;
							}
						}
						
						opener.window.javascript.model.makeValue("/root/hidden/koralgo", skorAlgo);
						opener.window.javascript.model.makeValue("/root/hidden/totscr", model.getValue("/root/send/data/totscr"));
						window.close();
					]]>
				</script>
			</button>
		</group>
	</xhtml:body>
</xhtml:html>