📄 azssxmjs.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<!--#include file=../../aickcz.asp-->
<%
dim rs,sqhm,syff
set rs=server.CreateObject("adodb.recordset")
sqhm=""
if Request.Form("pdid")="DK" then
sqlqhm="select b.mzh hm from ggzd_tk a,mz_tbr b where a.blh=b.blh and ( a.kdh='"& Request.Form("txtkh") & "' or a.bz='" & Request.Form("txtKH") & "')"
rs.Open sqlqhm,conn,3,1
if not rs.eof then
sqhm=rs("hm")
else
sqhm="00000000"
end if
rs.Close
else '如果不是读卡，则直接取门诊号的值
sqhm=Request.Form("txtmzh")
end if
syff="-1"
sql="select csz from xt_tcssz where csid=102"
rs.Open sql,conn,3,1
if rs.RecordCount >0 then syff=rs("csz")
rs.Close
%>
<head>
<meta name="VI60_defaultClientScript" content=JavaScript>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
FUNCTION JYKH()
dim strKH
JYKH=""
strKH=dickhm("<%=yyxx%>")
'msgbox "<%=yyxx%>"
if strKH="" then strKH="CC"
'msgbox strKH
if trim(strKH)="CC" then exit Function
JYKH = strKH
End FUNCTION
Sub cmdDK_onclick
dim strKH,xx,sfdyb
strKH=dickhm("<%=yyxx%>")
'msgbox strKH
if strKH="" then strKH="CC"
form1.txtKH.value = strKH
form1.pdid.value="DK"
form1.submit
End Sub
Sub cobWLCF_onchange
if form1.cobWLCF.value="" then exit sub
form1.txtKH.value = "Y0000000"
form1.txtmzh.value=form1.cobWLCF.value
form1.pdid.value="wlcf"
form1.submit
' msgbox form1.txtmzh.value
End Sub
sub cmbghsj_onchange
if trim(form1.cmbghsj.value)<>"" then
form1.txtlsh.value=form1.cmbghsj.value
window.frmYPMX.form1.txtlsh.value=form1.txtlsh.value
window.frmJSMX.form1.txtlsh.value=form1.txtlsh.value
window.frmWJSMX.form1.txtlsh.value=form1.txtlsh.value
window.frmYPMX.form1.submit
window.frmJSMX.form1.submit
window.frmWJSMX.form1.submit
end if
end sub
sub cmddY_onclick
if trim(form1.txtmzh.value)="" or trim(form1.txtlsh.value)="" then
msgbox "请输入病人!",vbinformation,"提示"
exit sub
end if
if trim(form1.cmbghsj.value)<>"" then
window.showModalDialog "azssxmYPPrint.asp?txtlsh="&form1.cmbghsj.value&"&syff="&form1.txtsyff.value,"_blank","location=no;toolbar=no;width=400;height=100"
end if
end sub
sub cmdjdddY_onclick
if trim(form1.txtmzh.value)="" or trim(form1.txtlsh.value)="" then
msgbox "请输入病人!",vbinformation,"提示"
exit sub
end if
if trim(form1.cmbghsj.value)<>"" then
' msgbox form1.cmbghsj.value
' if form1.chkxssc.checked=true then
'sfydy="bkydy"
' end if
window.showModalDialog "azssxmjddprint.asp?txtlsh="&form1.cmbghsj.value&"&sfdy="&sfydy,"_blank","location=no;toolbar=no;width=500;height=100"
' window.open "azssxmjddprint.asp?txtlsh="&form1.cmbghsj.value,"_blank","location=no;toolbar=no;width=400;height=100"
end if
end sub
Sub cmdMB_onclick
if trim(form1.txtmzh.value)="" or trim(form1.txtlsh.value)="0" or trim(form1.txtlsh.value)="" then
msgbox "请选择病人!",vbinformation,"提示"
exit sub
end if
'sKH=JYKH()
'if form1.txtKH.value<>sKH then
'if sKH<>"" then
' msgbox "卡机中的IC卡与读卡时的IC卡不一致！" & chr(10) & chr(13) & "请重新读卡后再操作！",vbexclamation,"提示"
'end if
'exit sub
'end if
if mbdiv.style.visibility ="visible" then
msgbox "模板已打开",64,"提示"
exit sub
end if
mbdiv.style.visibility ="visible"
mbdiv.style.border =0
mbdiv.style.posTop =0
mbdiv.style.posLeft =0
mbframe.frmaMB.hdlsh.value=form1.txtlsh.value
mbframe.frmaMB.hdye.value=form1.txtkye.value
' msgbox mbframe.frmaMB.hdye.value
' exit sub
' if not isnull(frmaCFLR.iXZFY.value ) THEN
' mbframe.frmaMB.hdXMLX.value=cint(frmaCFLR.iXZFY.value)
'else
mbframe.frmaMB.hdXMLX.value=3
'end if
'msgbox cstr(cint(frmaCFLR.iXZFY.value))
mbframe.frmaMB.submit
End Sub
-->
</script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function txtinput_onkeypress() {
if(form1.txtmzh.value==''||form1.txtlsh.value=='0'||form1.txtlsh.value=='')
{
window.alert("请选择挂号时间");
return ;
}
if(form1.txtinput.value=='') return;
if(window.event.keyCode==13)
{
window.event.keyCode=0;
var obj;
obj=window.document.getElementById('txtinput').getBoundingClientRect();
window.frmfzxm.form1.txtxmlx.value="fyp";
window.frmfzxm.form1.txtypmc.value=window.document.getElementById('txtinput').value;//inputvalue;
window.frmfzxm.form1.submit();
window.divfzxm.style.posTop=obj.bottom;
window.divfzxm.style.posLeft=obj.left;
window.divfzxm.style.visibility="visible";
}
}
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 funchek(o)
{
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 cmdJS_onclick() {
if(form1.txtmzh.value==''||form1.txtlsh.value=='0'||form1.txtlsh.value=='')
{
window.alert("请选择挂号时间");
return ;
}
if(parseFloat(form1.txtcfje.value)>parseFloat(form1.txtkye.value))
{
window.alert("患者医院余额不足,不能接收!");
return;
}
if (form1.txtKH.value!='Y0000000')
{
var sKH;
sKH=JYKH();
if (form1.txtKH.value!=sKH )
{
window.alert("卡机中的IC卡与读卡时的IC卡不一致！请重新读卡后再操作！");
return;
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -