amzxmjs.asp

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

<!-- #INCLUDE FILE="../../share/connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
dim rs, ips,itxtsjss,zdmc,mzh,sql
set rs=server.CreateObject("adodb.recordset")	
function funFromMb(lsh,mbid,nrid,sl,rzks,lrr,jsr)
   ' Response.Write lsh&","&mbid&","&nrid&","&sl&","&rzks&","&lrr
	if trim(lsh)=""  or trim(mbid)="" or trim(nrid)=""  or trim(sl)="" or trim(rzks)="" or trim(lrr)="" or trim(jsr)="" then 
		exit function
	end if

	dim comm2
	set comm2=server.CreateObject("adodb.command")
	comm2.ActiveConnection=conn
	comm2.CommandType=4
	comm2.CommandText="proc_MBCF_JS"
		
	comm2.Parameters("@lsh")=lsh
	comm2.Parameters("@mbid")=mbid
	comm2.Parameters("@nrid")=nrid
	comm2.Parameters("@sl")=sl
	comm2.Parameters("@rzks")=rzks 
	comm2.Parameters("@lrr")=lrr
	comm2.Parameters("@jsr")=jsr
	comm2.Execute 
	set comm2=nothing 
	
end function

qlsh=""
qlsh=Request.Form("txtLSH")
if trim(qlsh)="" then  qlsh=Request.QueryString("lsh") 
if trim(qlsh)="" then qlsh=0	 
mzh=Request.QueryString("mzh")
	 
dim yp,cl,xm
		
IF Request.Form("pdid")="QX" THEN

		
		yp=Request.Form("txtyp")
		cl=Request.Form("txtcl")
		xm=Request.Form("txtxm")
		if trim(yp)="" then yp="0"
		if trim(cl)="" then cl="0"
		if trim(xm)="" then xm="0"
						
	    funqxjsxm qlsh,session("rzks"),yp,cl,xm
			
	
end if
		
if  Request.Form("pdid")="DEL" then
    	
						
		yp=Request.Form("txtyp")
		cl=Request.Form("txtcl")
		xm=Request.Form("txtxm")
	    if trim(yp)="" then yp="0"
		if trim(cl)="" then cl="0"
		if trim(xm)="" then xm="0"
     funqxjsxm qlsh,session("rzks"),yp,cl,xm
     
	if trim(yp)<>"0" then 
	   sql="delete mz_tcflr where lsh="&qlsh&" and cfzt=0 and cfid in ("&yp&")"
	   conn.Execute sql
	end if
	if trim(cl)<>"0" then 
	    sql="delete mz_tcflr_cl where lsh="&qlsh&" and cfzt=0 and cfid in ("&cl&")"
	   conn.Execute sql
	end if
	if trim(xm)<>"0" then
	   sql="delete mz_tcflr_xm where lsh="&qlsh&" and cfzt=0 and cfid in ("&xm&")"
	   conn.Execute sql
	end if
end if	
		
if Request.Form("pdid")="ZSF" then 
   funzdsf qlsh,session("rzks"),session("yhid")
   funmzyffy  qlsh,session("rzks"),session("yhid"),session("yhid"),session("yhid"),session("yhid")
   funmzxmjs  qlsh,session("rzks"),session("yhid"),session("yhid"),session("yhid"),session("yhid")
   funmzyfcl  qlsh,session("rzks"),session("yhid"),session("yhid"),session("yhid"),session("yhid")
end if

function funzdsf(lsh,rzks,jbr)
		set comm=server.CreateObject("adodb.command")
		comm.ActiveConnection=conn
		comm.CommandType=4
		'Response.Write lsh&","&rzks&","&jbr
		comm.CommandText="proc_MZZDZSF"
		comm.Parameters("@lsh")=lsh
		comm.Parameters("@ks")=rzks
		comm.Parameters("@jbr")=jbr
		comm.Parameters("@zt")=""
		comm.Execute 
		set comm=nothing
end function
	
if trim(Request.Form("pdid"))="zjxm"  then
    dim lx
    lx=Request.Form("txtps")
   
    if trim(lx)="" then lx=-1
    if clng(Request.Form("txtxmlxid"))=-1 then
       'lsh,mbid,nrid,sl,rzks,lrr
       funFromMb Request.Form("txtlsh"),Request.Form("txtxmid"),Request.Form("txtnrid"), Request.Form("txtsl"),session("rzks"),session("yhid"),session("yhid")
    else
        if cint(lx)>-1 then 
           if cint(lx)=0 then
               funSave 0, qlsh,Request.Form("txtxmlxid"),Request.Form("txtxmid"),0,1,1,0,session("rzks"),Request.Form("txtdj"),Request.Form("txtsl"),Request.Form("txthsgx"),Request.Form("txtje"),Request.Form("txtje"),session("yhid")
                funmzyffy  qlsh,session("rzks"),session("yhid"),session("yhid"),session("yhid"),session("yhid")
           end if
           
           if cint(lx)=1 then
               funSavexm 0, qlsh,Request.Form("txtxmlxid"),Request.Form("txtxmid"),session("rzks"),Request.Form("txtdj"),Request.Form("txtsl"),Request.Form("txtje"),session("yhid")
                funmzxmjs  qlsh,session("rzks"),session("yhid"),session("yhid"),session("yhid"),session("yhid")
           end if
           if cint(lx)=2 then
               funSavecl 0,qlsh,Request.Form("txtxmlxid"),Request.Form("txtxmid"),session("rzks"),Request.Form("txtdj"),Request.Form("txtsl"),Request.Form("txtje"),session("yhid")
                funmzyfcl  qlsh,session("rzks"),session("yhid"),session("yhid"),session("yhid"),session("yhid")
           end if
        end if

	end if
end if

function funqxjsxm(qlsh,rzks,yp,cl,xm)
       dim QFJE
       QFJE=0
		'			
		if trim(yp)<>"0" then 
			rs.Open "select isnull(sum(a.je-a.ytje),0) as cfje from mz_tcflr a where cfid in ( " &yp& ") and cfzt in (3) ",conn,3,1
			if rs.RecordCount>0 then QFJE=cdbl(QFJE)+cdbl(RS("cfje"))
			rs.Close 
		end if
						
		if trim(cl)<>"0" then 
			rs.Open "select isnull(sum(a.je-a.ytje),0) as cfje from mz_tcflr_cl a where cfid in ( " &cl& ") and cfzt in (3) ",conn,3,1
			if rs.RecordCount>0 then QFJE=cdbl(QFJE)+cdbl(RS("cfje"))
			rs.Close 
		end if
						
		if trim(xm)<>"0" then 
			rs.Open "select isnull(sum(a.je-a.ytje),0) as cfje from mz_tcflr_xm a where cfid in ( " &xm& ") and cfzt in (3) ",conn,3,1
			if rs.RecordCount>0 then QFJE=cdbl(QFJE)+cdbl(RS("cfje"))
			rs.Close 
		end if
		if cdbl(QFJE)>0 then
		    if trim(yp)<>"0" then 
		        funmzyffyqx  qlsh,rzks,yp
		    end if
		    if trim(cl)<>"0" then 
		        funmzyfclqx  qlsh,rzks,cl
		    end if
		    if trim(xm)<>"0" then
		        funmzxmjsqx  qlsh,rzks,xm
		    end if
		end if
end function
function funSavexm(cfid,lsh,xmlx,bh,rzks,dj,sl,je,lrr)
     if trim(cfid)="" then cfid=0
     if trim(xmlx)="" then xmlx=0
     if trim(bh)="" then bh=0
     if trim(rzks)="" then rzks=session("rzks")
   ' if clng(dj)=0 then exit function
    if trim(lsh)="" then lsh=0
    if clng(lsh)=0 then exit function
	
	
	'Response.Write cfid&","&lsh&","&xmlx&","&bh&","&rzks&","&dj&","&sl&","&je&","&lrr
	dim comm
	set comm=server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandType=4
	comm.CommandText="proc_mzcflr_xm"
	comm.Parameters("@cfid")=cfid
	comm.Parameters("@lsh")=lsh
	comm.Parameters("@xmlx")=xmlx
	comm.Parameters("@bh")=bh
	comm.Parameters("@rzks")=rzks
	comm.Parameters("@dj")=dj
	comm.Parameters("@sl")=sl
	comm.Parameters("@je")=je
	comm.Parameters("@lrr")=lrr
	comm.Execute 
	set comm=nothing 
	
end function

function funSavecl(cfid,lsh,xmlx,bh,rzks,dj,sl,je,lrr)
     if trim(cfid)="" then cfid=0
     if trim(xmlx)="" then xmlx=0
     if trim(bh)="" then bh=0
     if trim(rzks)="" then rzks=session("rzks")
   ' if clng(dj)=0 then exit function
    if trim(lsh)="" then lsh=0
    if clng(lsh)=0 then exit function
	
	
	'Response.Write cfid&","&lsh&","&xmlx&","&bh&","&rzks&","&dj&","&sl&","&je&","&lrr
	dim comm
	set comm=server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandType=4
	comm.CommandText="proc_mzcflr_cl"
	comm.Parameters("@cfid")=cfid
	comm.Parameters("@lsh")=lsh
	comm.Parameters("@xmlx")=xmlx
	comm.Parameters("@bh")=bh
	comm.Parameters("@rzks")=rzks
	comm.Parameters("@dj")=dj
	comm.Parameters("@sl")=sl
	comm.Parameters("@je")=je
	comm.Parameters("@lrr")=lrr
	comm.Execute 
	set comm=nothing 
	
end function

function funSave(cfid,LSH,XMLX,BH,CSL,RCS,TS,SYFF,RZKS,DJ,SL,HSGX,JE,SJJE,LRR)
	if trim(lsh)=""   then  lsh=0
	if not isnumeric(lsh) then lsh=0
	if trim(cfid)=""   then  cfid=0
	if not isnumeric(cfid) then cfid=0	
    if trim(XMLX)=""   then  XMLX=0
	if not isnumeric(XMLX) then XMLX=0
	if trim(BH)=""   then  BH=0
	if not isnumeric(BH) then BH=0
	if trim(CSL)=""   then  CSL=0
	if not isnumeric(CSL) then CSL=0
	if trim(RCS)=""   then  RCS=0
	if not isnumeric(RCS) then RCS=0
	if trim(TS)=""   then  TS=0
	if not isnumeric(TS) then TS=0
	if trim(SYFF)=""   then  SYFF=0
	if not isnumeric(SYFF) then SYFF=0
	if trim(RZKS)=""   then  RZKS=0
	if not isnumeric(RZKS) then RZKS=0
	if trim(DJ)=""   then  DJ=0
	if not isnumeric(DJ) then DJ=0
	if trim(SL)=""   then  SL=0
	if not isnumeric(SL) then SL=0
	if trim(HSGX)=""   then  HSGX=0
	if not isnumeric(HSGX) then HSGX=0
	if trim(JE)=""   then  JE=0
	if not isnumeric(JE) then JE=0
	if trim(SJJE)=""   then  SJJE=0
	if not isnumeric(SJJE) then SJJE=0
	if trim(LRR)=""   then  LRR=0
	if not isnumeric(LRR) then LRR=0
	'Response.Write cfid&","&LSH&","&XMLX&","&BH&","&CSL&","&RCS&","&TS&","&SYFF&","&RZKS&","&DJ&","&SL&","&HSGX&","&JE&","&SJJE&","&LRR
	

	dim comm
	set comm=server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandType=4
	comm.CommandText="proc_savemzcf"
		
	comm.Parameters("@cfid")=cfid
	comm.Parameters("@LSH")=lsh
	comm.Parameters("@XMLX")=xmlx
	comm.Parameters("@BH")=bh
	comm.Parameters("@CSL")=csl
	comm.Parameters("@RCS")=rcs
	comm.Parameters("@TS")=ts
	comm.Parameters("@SYFF")=syff
	comm.Parameters("@RZKS")=rzks
	comm.Parameters("@DJ")=dj
	comm.Parameters("@SL")=sl
	comm.Parameters("@HSGX")=hsgx
	comm.Parameters("@JE")=je
	comm.Parameters("@SJJE")=sjje
	comm.Parameters("@LRR")=lrr
	comm.Execute 
	set comm=nothing 
end function

function funmzyffyqx(lsh,rzks,vcfid)
		set comm=server.CreateObject("adodb.command")
		comm.ActiveConnection=conn
		comm.CommandType=4
		'Response.Write lsh&","&rzks&","&fyr&","&tpr&","&tpfhr&","&cfshr
		comm.CommandText="proc_mzyffyqx"
		comm.Parameters("@intLSH")=lsh
		comm.Parameters("@intRZKS")=rzks
		comm.Parameters("@vcfid")=vcfid
		

		comm.Execute 
		
		set comm=nothing
end function
	
function funmzyfclqx(lsh,rzks,vcfid)
	set comm=server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandType=4
	'Response.Write lsh&","&rzks&","&fyr&","&tpr&","&tpfhr&","&cfshr
	comm.CommandText="proc_mzclfclqx"
	comm.Parameters("@intLSH")=lsh
	comm.Parameters("@intRZKS")=rzks
	comm.Parameters("@vcfid")=vcfid
		

	comm.Execute 
	
	set comm=nothing
end function
	
function funmzxmjsqx(lsh,rzks,vcfid)
	set comm=server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandType=4