📄 amzxmwjs.asp
字号:
var obj,i;
window.form1.txtyp.value="0";
window.form1.txtcl.value="0";
window.form1.txtxm.value="0";
obj=o.document.all.item('chk');
if(obj==null) return 0;
if(obj.length==null)
{
if(obj.checked==true)
{
if(obj.title=="0")
{
window.form1.txtyp.value=window.form1.txtyp.value+","+obj.value;
}
else if(obj.title=="1")
{
window.form1.txtxm.value=window.form1.txtxm.value+","+obj.value;
}
else if(obj.title=="2")
{
window.form1.txtcl.value=window.form1.txtcl.value+","+obj.value;
}
return 1;
}
return 0;
}
for(i=0;i<obj.length;i++)
{
if(obj(i)!=null)
{
if(obj(i).checked==true)
{
if(obj(i).title=="0")
{
window.form1.txtyp.value=window.form1.txtyp.value+","+obj(i).value;
}
else if(obj(i).title=="1")
{
window.form1.txtxm.value=window.form1.txtxm.value+","+obj(i).value;
}
else if(obj(i).title=="2")
{
window.form1.txtcl.value=window.form1.txtcl.value+","+obj(i).value;
}
}
// return 1;
}
}
if(window.form1.txtcl.value!="0" || window.form1.txtxm.value!="0" || window.form1.txtyp.value!="0")
return 1;
return 0;
}
function cmdQX_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="QX" ;
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 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();
}
//-->
</SCRIPT>
</head>
<body topmargin=0 leftmargin=0 scroll=no >
<form name="form1" id="form1" method="post" action="" >
<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=txtyp name=txtyp >
<INPUT type="hidden" id=txtcl name=txtcl >
<INPUT type="hidden" id=txtxm name=txtxm >
<table width=100% height=100% border=0 cellspacing="0" cellpadding="0" bgcolor="<%=tableBGCOLOR%>">
<TR><TD nowrap colspan=4>
<table border="0" height=100% bordercolorlight=#000000 bordercolordark=#ffffff cellPadding="0" cellSpacing="0" style="HEIGHT: 22px; WIDTH:100%">
<tr >
<td rowspan="1"><input type="button" value="读 卡(D)" class=buttons02 accesskey="D" id="cmddk" name="button1" style="HEIGHT: 22px; WIDTH: 140px"></td>
<td nowrap align=left>门 诊 号<INPUT id=txtmzh name=txtmzh class=transparenttext style="HEIGHT: 18px; WIDTH: 140px;" readonly>
<td nowrap >姓 名<input id="txtbrxm" name="txtbrxm" class=transparenttext style=" WIDTH: 50;" readonly >
性别<input id="txtxb" name="txtxb" style="WIDTH: 25;" class=transparenttext readonly ></td>
<td nowrap align=left>年 龄<input id="txtnl" name="txtnl" class=transparenttext style="WIDTH: 100;" readonly ></td>
</tr>
<tr ><TD>收费类型<INPUT id=txtsflx name=txtsflx class=transparenttext style="WIDTH: 100;" readonly >
<td nowrap align=left>挂号时间<SELECT id=cmbGHSJ name=cmbGHSJ style="HEIGHT: 18px; WIDTH: 140px">"
<option value="" selected>--请选择--</option>
<%
dim i,ilsh
i=0
ilsh=0
sqlstr="select distinct top 20 lsh,ghsj from mz_tbrls,mz_tbr where mz_tbrls.blh=mz_tbr.blh and lsh in (select lsh from view_mzdjsbrxx"
sqlstr=sqlstr&" where rzks="&session("rzks")&" ) 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>
<td nowrap >就诊科室<input id="txtjzks" name="txtjzks" class=transparenttext style=" WIDTH: 100;" readonly ></td>
<td nowrap align=left>医 师<input id="txtys" name="txtys" class=transparenttext style="WIDTH: 100;" readonly ></td>
</tr>
<tr ><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>
<td>处方金额<INPUT id=txtcfje name=txtcfje class=transparenttext style="WIDTH: 100;" readonly ></td>
</tr></table>
</td></tr>
<tr ><td colspan="4" ><font color="<%=tableHFONTCOLOR%>">待收费接收项目</font>
外来处方:<SELECT id=cobWLCF name=cobWLCF style="HEIGHT: 20px; WIDTH: 140px">
<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"
'sql="select distinct xm,mzh,lsh from view_mzdjsbrxx where (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></tr>
<tr height=50% width=100% ><td colspan=4>
<iframe id=frmWJSMX style="width:100%;height:100%" name=frmWJSMX frameborder=0 noresize src="amzxmwjsmx.asp?lsh=<%=ilsh%>&mzh=<%=sqhm%>"> </iframe></td></tr>
<tr ><td colspan=4>输入项目<INPUT type="text" id=txtinput name=txtinput style='width:100px' LANGUAGE=javascript onkeypress="return txtinput_onkeypress()">
<input type="button" value="接收(J)" accesskey="J" id="cmdJS" name=cmdJS name="button2" style="WIDTH:80px" class=buttons02 LANGUAGE=javascript onclick="return cmdJS_onclick()">
<input type="button" value="取消(Q)" accesskey="Q" id="cmdQX" name="cmdQX" style="WIDTH: 80px" class=buttons02 LANGUAGE=javascript onclick="return cmdQX_onclick()">
<input type="button" value="删除(D)" accesskey="D" id="cmdDEL" name="cmdDEL" style="width:80px" class=buttons02 LANGUAGE=javascript onclick="return cmdDEL_onclick()">
<input type="button" value="模板(M)" accesskey="M" id="cmdDKMB" name="cmdDKMB" style="width:80px" class=buttons02>
</td></tr>
<tr ><td colspan=4><font color="<%=tableHFONTCOLOR%>">已收费接收项目</font></td></tr>
<tr height=50% width=100%><td colspan=4>
<iframe id =frmJSMX NAME=frmJSMX style="width:100%;height:100%" name=frmJSMX frameborder=0 noresize src="amzxmjs.asp?lsh=<%=ilsh%>&mzh=<%=sqhm%>"> </iframe>
</td></tr></table>
<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>
<%
set rs=nothing
conn.close
set conn=nothing
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -