📄 azssxmjs.asp
字号:
}
if(funchek(frmWJSMX)==0)
{
window.alert("请选择项目!");
return;
}
window.frmWJSMX.form1.pdid.value="JS" ;
window.frmWJSMX.form1.txtyp.value=form1.txtyp.value;
window.frmWJSMX.form1.txtxm.value=form1.txtxm.value;
window.frmWJSMX.form1.txtcl.value=form1.txtcl.value;
window.frmWJSMX.form1.txtlsh.value=form1.txtlsh.value;
window.frmWJSMX.form1.submit();
window.frmJSMX.form1.txtlsh.value=form1.txtlsh.value;
window.frmJSMX.form1.submit();
}
function cmdDEL_onclick() {
if(form1.txtmzh.value==''||form1.txtlsh.value=='0'||form1.txtlsh.value=='')
{
window.alert("请选择挂号时间");
return ;
}
if (form1.txtKH.value!='Y0000000')
{
var sKH;
sKH=JYKH();
if (form1.txtKH.value!=sKH )
{
window.alert("卡机中的IC卡与读卡时的IC卡不一致！请重新读卡后再操作！");
return;
}
}
if(funchek(frmJSMX)==0)
{
window.alert("请选择要删除的项目!");
return;
}
window.frmJSMX.form1.pdid.value="DEL" ;
window.frmJSMX.form1.txtyp.value=form1.txtyp.value;
window.frmJSMX.form1.txtxm.value=form1.txtxm.value;
window.frmJSMX.form1.txtcl.value=form1.txtcl.value;
window.frmJSMX.form1.txtlsh.value=form1.txtlsh.value;
window.frmJSMX.form1.submit();
window.frmWJSMX.form1.txtlsh.value=form1.txtlsh.value;
window.frmWJSMX.form1.submit();
}
function funchekps(o)
{
var obj,i,j;
j=0;
form1.txtyp.value="";
obj=o.document.all.item('chk');
if(obj==null) return 0;
if(obj.length==null)
{
if(obj.checked==true)
{
form1.txtyp.value=obj.value;
return 1;
}
return 0;
}
for(i=0;i<obj.length;i++)
{
if(obj(i)!=null)
{
if(obj(i).checked==true)
{
j=parseInt(j)+1;
form1.txtyp.value=obj(i).value;
}
}
}
return j;
}
function cmdpsjg_onclick() {
if(form1.txtmzh.value==''||form1.txtlsh.value=='0'||form1.txtlsh.value=='')
{
window.alert("请选择挂号时间");
return ;
}
if (form1.txtKH.value!='Y0000000')
{
var sKH;
sKH=JYKH();
if (form1.txtKH.value!=sKH )
{
window.alert("卡机中的IC卡与读卡时的IC卡不一致！请重新读卡后再操作！");
return;
}
}
var j;
j=funchekps(frmYPMX);
if(j==0)
{
window.alert("请选择要皮试的药品!");
return;
}
if(j>1)
{
window.alert("皮试一次只能选中一条项目!");
return;
}
var win,url;
url="azsspsjg.asp";
win=showModalDialog(url,"","dialogWidth:200px;status:no;dialogHeight:100px");
if (win.type!="")
{
//window.alert(win.txtBH);
frmYPMX.form1.txtps.value=win.txtps;
frmYPMX.form1.txtcfid.value=form1.txtyp.value;
frmYPMX.form1.txtlsh.value=form1.txtlsh.value;
frmYPMX.form1.txtczzt.value="psjg";
frmYPMX.form1.submit();
}
}
function cmdzsf_onclick() {
if(form1.txtmzh.value==''||form1.txtlsh.value=='0'||form1.txtlsh.value=='')
{
window.alert("请选择挂号时间");
return ;
}
if (form1.txtKH.value!='Y0000000')
{
var sKH;
sKH=JYKH();
if (form1.txtKH.value!=sKH )
{
window.alert("卡机中的IC卡与读卡时的IC卡不一致！请重新读卡后再操作！");
return;
}
}
window.frmJSMX.form1.pdid.value="ZSF";
window.frmJSMX.form1.txtlsh.value=form1.txtlsh.value;
window.frmJSMX.form1.submit();
window.frmWJSMX.form1.txtlsh.value=form1.txtlsh.value;
window.frmWJSMX.form1.submit();
}
//-->
</script>
</head>
<body topmargin="0" leftmargin="0" scroll=no>
<form action method="POST" id="form1" name="form1" LANGUAGE=javascript >
<INPUT type="HIDDEN" id=txtKH name=txtKH value='<%=Request.Form("txtKH")%>'>
<INPUT type="HIDDEN" id=pdid name=pdid>
<INPUT type="hidden" id=txtlsh name=txtlsh >
<INPUT type="hidden" id=txtsyff name=txtsyff value='<%=syff%>' >
<INPUT type="hidden" id=txtyp name=txtyp >
<INPUT type="hidden" id=txtcl name=txtcl >
<INPUT type="hidden" id=txtxm name=txtxm >
<div id="divtable">
<table width='100%' height='100%' border=0 cellspacing="0" cellpadding="0" bgcolor="<%=tableBGCOLOR%>">
<TR><TD nowrap colspan=4>
<table BORDER="0" bordercolorlight="#000000" bordercolordark="#ffffff" height='100%' CELLSPACING=0 CELLPADDING=0 width=100%>
<tr>
<td rowspan="1">
<input type="button" value="读卡(D)" accesskey="D" id="cmddk" name="cmddk" style="HEIGHT: 22px; WIDTH: 120px" class=buttons02 >
</td>
<td nowrap >门 诊 号<input id="txtmzh" name="txtmzh" class=transparenttext style="HEIGHT: 18px; WIDTH: 80px" READONLY ></td>
<td nowrap >姓 名<input id="txtbrxm" name="txtbrxm" class=transparenttext style="width:80;" readonly ></td>
<td nowrap >性别<input id="txtxb" name="txtxb" class=transparenttext style=" WIDTH: 60;" readonly ></td>
<td nowrap >年龄<input id="txtnl" name="txtnl" class=transparenttext style="WIDTH: 60;" readonly ></td>
</tr>
<tr>
<TD><input type="button" value="打 印" id="cmddY" name="cmddY" style="HEIGHT: 22px; WIDTH: 120px" class=buttons02 >
</td>
<td nowrap >挂号时间<select id="cmbghsj" name="cmbghsj" style="HEIGHT: 18px; WIDTH: 120px">
<option value="-1" selected>--请选择--</option>
<%
dim i,ilsh
i=0
ilsh=0
'sqlstr="select distinct top 20 lsh,ghsj from mz_tbrls,mz_tbr where sfqr=1 and mz_tbrls.blh=mz_tbr.blh and lsh in (select lsh from view_mzdjsbrxx"
'sqlstr=sqlstr&" where syff in ("&syff&") )and mzh like '"&sqhm&"'order by lsh desc"
sqlstr="select distinct top 20 a.lsh,a.ghsj from mz_tbrls a,mz_tbr b where a.blh=b.blh and b.mzh='"& sqhm &"' order by lsh desc"
rs.Open sqlstr,conn,3,1
do while not rs.eof
if cint(i)=0 then
Response.Write "<option selected value="&rs("lsh")&" >"&rs("ghsj")&"</option>"
ilsh=rs("lsh")
else
Response.Write "<option value="&rs("lsh")&" >"&rs("ghsj")&"</option>"
end if
i=cint(i)+1
rs.MoveNext
loop
rs.Close%>
</SELECT>
<td nowrap >就诊科室<input id="txtjzks" name="txtjzks" class=transparenttext style=" WIDTH: 60;" readonly></td>
<td nowrap >医师<input id="txtys" name="txtys" class=transparenttext style=" WIDTH: 60;" readonly ></td>
<td nowrap >类型<input id="txtsflx" name="txtsflx" class=transparenttext style=" WIDTH: 60;" readonly ></td>
</tr><tr>
<td nowrap ><input class=buttons02 type="button" value="静滴单打印" id="cmdjdddY" name="cmdjdddY" style="HEIGHT: 22px; WIDTH: 120px">
<!--<INPUT type="checkbox" id=chkxssc name=chkxssc><font color=red>包括已打印的(只对静滴单有效)</font> -->
</td><TD>
外来处方<SELECT id=cobWLCF name=cobWLCF style="HEIGHT: 20px; WIDTH: 120px">
<option value="" selected>--请选择--</option>
<%
sql="select distinct xm,mzh,lsh from view_mzdjsbrxx where rzks="&session("rzks")&" and (cfzt=0 or cfzt=1 or cfzt=3) and GHSJ>=convert(VARCHAR(10),getdate(),120) and mzh like 'Y%' order by lsh desc"
rs.Open sql,conn,3,1
do until rs.EOF
if trim(Request("txtmzh"))=trim(rs("mzh")) then
Response.Write "<option value="&rs("MZH")&" selected >"&rs("MZH")&rs("xm")&"</option>"
else
Response.Write "<option value="&rs("MZH")&" >"&rs("MZH")&rs("xm")&"</option>"
end if
rs.MoveNext
loop
rs.Close
%>
</select>
<td align=left>卡余额<INPUT id=txtkye name=txtkye class=transparenttext style="WIDTH: 100;" readonly ></td>
<td nowrap >医保余额<INPUT id=txtgrzhye name=txtgrzhye class=transparenttext style="WIDTH: 100;" readonly ></td>
<td>农合余额<INPUT id=txtnhye name=txtnhye class=transparenttext style="WIDTH: 100;" readonly >
</td>
<tr><td colspan="5" align="middle" height=50%>
<iframe name="frmYPMX" id="frmYPMX" width="100%" height="100%" src="azssxmYPMX.asp?lsh=<%=ilsh%>&mzh=<%=sqhm%>&syff=<%=syff%>"></iframe>
</td>
<tr><td colspan="5">输入项目<INPUT type="text" id=txtinput name=txtinput style='width:100px' LANGUAGE=javascript onkeypress="return txtinput_onkeypress()">
<input type="button" value="接收(J)" class=buttons02 accesskey="J" id="cmdJS" name=cmdJS name="button2" style="WIDTH:70px" LANGUAGE=javascript onclick="return cmdJS_onclick()">
<input type="button" value="取消(Q)" class=buttons02 accesskey="Q" id="cmdQX" name="cmdQX" style="WIDTH: 70px" LANGUAGE=javascript onclick="return cmdQX_onclick()">
<input type="button" value="删除(D)" class=buttons02 accesskey="D" id="cmdDEL" name="cmdDEL" style="width:70px" LANGUAGE=javascript onclick="return cmdDEL_onclick()">
<input type="button" value="模板(M)" class=buttons02 accesskey="m" id="cmdMB" name="cmdMB" style="width:70px">
<input type="button" value="皮试(P)" class=buttons02 accesskey="P" id="cmdpsjg" name="cmdpsjg" style="width:70px" LANGUAGE=javascript onclick="return cmdpsjg_onclick()">
<input type="button" value="注射费(F)" class=buttons02 accesskey="f" id="cmdzsf" name="cmdzsf" style="width:70px" LANGUAGE=javascript onclick="return cmdzsf_onclick()">
</tr>
<tr>
<td align="left" colspan="2">处方金额<INPUT id=txtcfje name=txtcfje class=transparenttext style="WIDTH: 60;" readonly >
未收费接收项目<td align="middle" colspan="3">已收费接收项目</td>
</tr>
<tr><td align="middle" colspan="2" height=50%>
<iframe name="frmWJSMX" id="frmWJSMX" width="100%" height="100%" src="amzxmwjsmx.asp?lsh=<%=ilsh%>&mzh=<%=sqhm%>"></iframe></td>
<td align="middle" colspan="3">
<iframe name="frmJSMX" id="frmJSMX" width="100%" height="100%" src="amzxmjs.asp?lsh=<%=ilsh%>&mzh=<%=sqhm%>"></iframe>
</td></tr>
</table>
</div>
<DIV id=divfzxm name=divfzxm style="visibility:hidden;LEFT: -600px;POSITION: absolute; TOP: -500px;" >
<iframe src="azjxm.asp" id="frmfzxm" name="frmfzxm" frameborder="0" STYLE=" width:400px; height:170px"></iframe>
</DIV>
<div id=mbdiv style="visibility:hidden;LEFT: -600px;POSITION: absolute; TOP: -500px;" >
<iframe border=0 id=mbframe name=mbframe style="width:600;height=340" src="anewmbyy.asp" ></iframe>
</div>
</div>
</form>
</font>
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -