axymbmx.asp

医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构

<%@ Language=VBScript %>
<%
dim conn,rs
set conn=server.CreateObject("adodb.connection") 
set rs=server.CreateObject("adodb.recordset") 
conn.Open application("sconn")
'增加
if Request.Form("hdPD")="add" then
  rs.Open "select * from ggzd_tyzcfmbnr where 1=0",conn,3,3
  rs.AddNew 
  rs("mbid")=Request.Form("hdmbid")
  rs("xmlx")=Request.Form("hdlxid")  
  rs("bh")=Request.Form("hdbh")  
  'rs("fzmc")=Request.Form("hdfzmc")  
  rs("csl")=Request.Form("hdcsl")  
  rs("rcs")=Request.Form("hdrcs")  
  rs("ts")=Request.Form("hdts")  
  rs("syff")=Request.Form("hdsyff")  
  rs("ps")=Request.Form("hdps")  
  rs("sl")=Request.Form("hdsl")
  rs("dj")=Request.Form("hddj")
  rs("je")=Request.Form("hdje")
  rs("rzks")=Request.Form("hdrzks")   
  rs.Update
  rs.Close
end if
'删除
if Request.Form("hdPD")="del" then
  for each intNRID in  Request.Form("chk")
    if isnumeric(intNRID) then
      conn.Execute "delete ggzd_tyzcfmbnr where nrid=" & intNRID
    end if  
  next
end if

'应用  

if Request.Form("hdPD")="app" then
'计算余额是否够入账
'------------------------
 dim rsYYMB,intNRID,je,kcl
 je=0
set rsYYMB=server.CreateObject("adodb.recordset")
for each intNRID in  Request.Form("chk")
    if isnumeric(intNRID) then
     if clng(intNRID)>0 THEN
      rsYYMB.Open "select sum(je) as je from ggzd_tyzcfmbnr where nrid=" & intNRID,conn
      je=cdbl(je)+cdbl(rsYYMB("je"))
      rsYYMB.Close 
      END IF
    end if
 next
if cdbl(je)>cdbl(Request.Form("hdye")) then
'------------------------
  Response.Write "<script language=vbscript>"&chr(10)
  Response.Write "msgbox""余额不够，相差["&cdbl(je)-cdbl(Request.Form("hdye"))&"元]，请交款后再做"",64,""提示"""&chr(10)
  Response.Write "</script>" 
else
  for each intNRID in  Request.Form("chk")
    if isnumeric(intNRID) then
	
	  if clng(intNRID)>0 THEN
	 ' set rsYYMB=server.CreateObject("adodb.recordset")
	  rsYYMB.Open "select * from ggzd_tyzcfmbnr where nrid=" & intNRID,conn
	  '为无的入帐科室改为登录者的入帐科室
	  
	  'if cint(rsYYMB("rzks"))=0 then
	    intRZKS=session("RZKS")
	  'else
	 '   intRZKS=application("mzxyf")
	  'end if  
	   'dim ts 
	   
	  'ts=cdbl(Request.Form("hdts"))

	  'if cdbl(ts)<>0 then
	'	ssql = "INSERT INTO MZ_tCFLR (LSH,XMLX,BH,CSL,RCS,TS,PS,SYFF,SL,DJ,JE,RZKS,YSZT,CFZT,LRR,SFBC) VALUES(" & _
	'			"" & Request.Form ("hdLSH") & ","&rsYYMB("XMLX")&","& rsYYMB("BH") &"," & rsYYMB("CSL") & "," & rsYYMB("RCS") & "," & cdbl(ts) & "," & _
	'			"" & rsYYMB("PS") & "," & rsYYMB("SYFF") & "," & long(cdbl(rsYYMB("SL"))*cdbl(ts)/cdbl(rsYYMB("TS"))+0.99999) & "," & _
	'			"" & CDBL(rsYYMB("DJ")) & "," & formatnumber(long(cdbl(rsYYMB("SL"))*cdbl(ts)/cdbl(rsYYMB("TS"))+0.99999)*CDBL(rsYYMB("DJ")),2) & "," & intRZKS & ",'0',0,"& _
	'			"" & session("YHID") & ",0)"
	 ' else
	   '--库存比较
	   kcl=0
	   if clng(rsYYMB("xmlx"))<3 then
	      sql="select kcl from yf_typkc where ypid="&rsYYMB("bh") &" and lyks="&intRZKS
	      rs.Open sql,conn,3,1
	      do until rs.EOF 
	         kcl=rs("kcl")
	         rs.MoveNext
	      loop
	      rs.Close 
	      if cdbl(kcl)<=0 then
	           Response.Write "<script language=vbscript>"&chr(10)
		       Response.Write "msgbox""该药品库存没有,请换其它药"",vbinformation,""提示"""&chr(10)
		       Response.Write "</script>" 
	      else
	      
		'	ssql = "INSERT INTO MZ_tCFLR (LSH,XMLX,BH,CSL,RCS,TS,PS,SYFF,SL,DJ,JE,RZKS,YSZT,CFZT,LRR,SFBC) VALUES(" & _
			'		"" & Request.Form ("hdLSH") & ","&rsYYMB("XMLX")&","& rsYYMB("BH") &"," & rsYYMB("CSL") & "," & rsYYMB("RCS") & "," & rsYYMB("TS") & "," & _
			'		"" & rsYYMB("PS") & "," & rsYYMB("SYFF") & "," & rsYYMB("SL")& "," & _
			'		"" & CDBL(rsYYMB("DJ")) & "," & CDBL(rsYYMB("JE")) & "," & intRZKS & ",'0',0,"& _
			'		"" & session("YHID") & ",0)"
			 ssql="insert into mz_tcflr(lsh,xmlx,bh,csl,rcs,ts,ps,syff,rzks,dj,sl,je,ytsl,ytje,cfzt,lrr,sj,fpydy,sfbc,jsr,jssj)" & _
					"values("&Request.Form("hdLSH")&","& rsYYMB("XMLX") & ", " &  rsYYMB("BH") & ","&rsYYMB("CSL")&"," & rsYYMB("RCS")&","& _
					"" &rsYYMB("TS") & ","& rsYYMB("PS") & "," & rsYYMB("SYFF") & "," &session("rzks")&","&CDBL(rsYYMB("DJ"))&","&rsYYMB("SL")&","& _
					"" &CDBL(rsYYMB("JE"))&",0,0,3,"&session("yhid")&",'"&now&"',0,1,"&session("yhid")&",'"&now()&"')"
					conn.Execute ssql
					
		 end if
	else
	   ' ssql = "INSERT INTO MZ_tCFLR (LSH,XMLX,BH,CSL,RCS,TS,PS,SYFF,SL,DJ,JE,RZKS,YSZT,CFZT,LRR,SFBC) VALUES(" & _
				'	"" & Request.Form ("hdLSH") & ","&rsYYMB("XMLX")&","& rsYYMB("BH") &"," & rsYYMB("CSL") & "," & rsYYMB("RCS") & "," & rsYYMB("TS") & "," & _
				'	"" & rsYYMB("PS") & "," & rsYYMB("SYFF") & "," & rsYYMB("SL")& "," & _
				'	"" & CDBL(rsYYMB("DJ")) & "," & CDBL(rsYYMB("JE")) & "," & intRZKS & ",'0',0,"& _
				'	"" & session("YHID") & ",0)" 
		 ssql="insert into mz_tcflr(lsh,xmlx,bh,csl,rcs,ts,ps,syff,rzks,dj,sl,je,ytsl,ytje,cfzt,lrr,sj,fpydy,sfbc,jsr,jssj)" & _
					"values("&Request.Form("hdLSH")&","& rsYYMB("XMLX") & ", " &  rsYYMB("BH") & ","&rsYYMB("CSL")&"," & rsYYMB("RCS")&","& _
					"" &rsYYMB("TS") & ","& rsYYMB("PS") & "," & rsYYMB("SYFF") & "," &session("rzks")&","&CDBL(rsYYMB("DJ"))&","&rsYYMB("SL")&","& _
					"" &CDBL(rsYYMB("JE"))&",0,0,3,"&session("yhid")&",'"&now&"',0,1,"&session("yhid")&",'"&now()&"')"
					conn.Execute ssql
	end if
	'  end if
			
			
			
	 
	  rsYYMB.Close
	  END IF
	 ' set rsYYMB=nothing
    end if  
  next
  end if
  set rsYYMB=nothing
  strZT="CG"
end if    
    
rs.Open "select * from	VIEW_MBYP where mbid=" & Request("hdmbid") & "   order by FZMC DESC ,nrid",conn
%>
<HTML>
<HEAD>
<META name="VI60_DefaultClientScript" Content="VBScript">
<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 type="text/vbscript" src="../../ggmk.vbs"></script>
</HEAD>
<BODY topmargin=0 leftmargin=0>
<form id=frmaXYMBMX name=frmaXYMBMX action="aXYMBMX.asp" method="post">
<!--以下的hidden应用于增加时使用-->
<INPUT type="hidden" id=hdPD name=hdPD>
<INPUT type="hidden" id=hdmbid name=hdmbid>
<INPUT type="hidden" id=hdlxid name=hdlxid>
<INPUT type="hidden" id=hdbh name=hdbh>
<INPUT type="hidden" id=hdfzmc name=hdfzmc>
<INPUT type="hidden" id=hdcsl name=hdcsl>
<INPUT type="hidden" id=hdrcs name=hdrcs>
<INPUT type="hidden" id=hdts name=hdts>
<INPUT type="hidden" id=hdsyff name=hdsyff>
<INPUT type="hidden" id=hdps name=hdps>
<INPUT type="hidden" id=hdsl name=hdsl>
<INPUT type="hidden" id=hddj name=hddj>
<INPUT type="hidden" id=hdje name=hdje>
<INPUT type="hidden" id=hdrzks name=hdrzks>
<!--以下的hidden应用于'模板应用'时使用-->
<INPUT type="hidden" id=hdYZLX name=hdYZLX><!--医嘱类型-->
<INPUT type="hidden" id=hdye name=hdye><!--余额-->
<INPUT type="hidden" id=hdLSH name=hdLSH><!--流水号-->
<INPUT type="hidden" id=hdKZYS name=hdKZYS><!--开嘱医生-->

<INPUT type="hidden" id=hdlz name=hdlz>
<INPUT type="hidden" id=iTJPS name=iTJPS>
<table border="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="1" cellspacing="0" width="560" align="left">
  <tr >
    <td width=20>&nbsp;</td> 
    <td width="160"><INPUT type="checkbox" id=chk name=chk value=-1 style="width:0;height:0"><INPUT type="checkbox" id=chk name=chk value=-2 style="width:0;height:0">药品名称</td>
    <td width="36">次剂量</td>
    <td width="36">日次数</td>
    <td width="30">天数</td>
    <td width="36">总剂量</td>
    <td width="50">使用方法</td>
    <td width="30">皮试</td>
  </tr>
  <%do while not rs.EOF%>
  <tr bgcolor=#ffffff>
    <td width=20><INPUT type="checkbox" id=chk name=chk value=<%=rs("nrid")%> style="width:20;height:15"></td>
    <td width="160"><%=rs("ypspm") & "[" & rs("gg") & "]"%></td>
    <td width="36"><%=rs("csl")&rs("dwmc")%></td>
    <td width="36"><%=rs("rcsmc")%></td>
    <td width="30"><%=rs("ts")%></td>
    <td width="36"><%=rs("sl")%></td>
    <td width="50"><%=rs("syffmc")%></td>
    <td width="30"><%=rs("psmc")%></td>
  </tr>
  <%rs.MoveNext%>
  <%loop%>
</table>
</form>
<%if strZT="CG" then%>
<SCRIPT LANGUAGE=vbscript>
<!--
 ' msgbox "应用模板成功，如不需再应用，请按“返回”按钮返回！",vbinfomation,"提示"
-->
</SCRIPT>
<%end if%>
</BODY>
</HTML>