<%@ Language=VBScript%> <%'该文件需要进行调整和设置 dim typename NewsID=Request.QueryString("NewsID") Page=Request.QueryString("page") if page="" then page=1 elseif not IsNumeric(page) then response.write "" response.end end if page=int(page) if newsid="" then response.write "" response.end elseif not IsNumeric(newsid) then response.write "" response.end else conn.execute("update News Set Click=click+1 where NewsID=" & NewsID ) set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies("key")="" then rs.Source="select * from News where checkked=1 and newslevel=0 and newsid="&newsid end if if Request.cookies("key")="selfreg" then if Request.cookies("reglevel")=3 then rs.Source="select * from News where checkked=1 and newslevel<=3 and newsid="&newsid end if if Request.cookies("reglevel")=2 then rs.Source="select * from News where checkked=1 and newslevel<=2 and newsid="&newsid end if if Request.cookies("reglevel")=1 then rs.Source="select * from News where checkked=1 and newslevel<=1 and newsid="&newsid end if end if if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then rs.Source="select * from News where newsid="&newsid end if else rs.Source="select * from News where newsid="&newsid end if rs.Open rs.Source,conn,1,1 if rs.bof and rs.eof then response.write "无权限访问或无此内容,请注册登陆或联系管理员" else bigclassid=rs("bigclassid") smallclassid=rs("smallclassid") title=trim(rs("title")) title=replace(title,"
","") title1=trim(rs("title")) about=trim(rs("about")) Author=trim(rs("Author")) editor=trim(rs("editor")) Original=trim(rs("Original")) image=rs("image") UpdateTime=trim(rs("UpdateTime")) News_Content=rs("Content") SpecialID=rs("SpecialID") SpecialID2=rs("SpecialID2") click=rs("click") EnCode=trim(rs("EnCode")) typeid=rs("typeid") titletype=rs("titletype") titlesize=rs("titlesize") titlecolor=rs("titlecolor") titleface=rs("titleface") editor=rs("editor") if titlesize=0 then size="18px" else if titlesize=1 then size="8px" else if titlesize=2 then size="10px" else if titlesize=3 then size="12px" else if titlesize=4 then size="14px" else if titlesize=5 then size="18px" else if titlesize=6 then size="24px" else if titlesize=7 then size="36px" end if end if end if end if end if end if end if end if rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type where typeID=" & typeID rs.Open rs.Source,conn,1,1 typename=rs("typename") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from bigclass Where BigClassid=" & BigClassid rs.Open rs.Source,conn,1,1 bigclassname=rs("bigclassname") rs.close set rs=nothing if smallclassid<>"" then set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from smallclass Where smallClassid=" & smallClassid rs.Open rs.Source,conn,1,1 smallclassname=rs("smallclassname") rs.close set rs=nothing end if %> 我院财务电算科专栏
      栏目导航 网站首页>>我院财务电算科专栏
  
财务电算科简介
 
<% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from News where NewsID=" & NewsID rs.Open rs.source,conn,1,1 typeid=rs("typeid") Title=trim(rs("Title")) image=rs("image") dim mode set rs11=server.CreateObject("ADODB.RecordSet") rs11.Source="select * from type where typeid="&typeid&" order by typeid" rs11.Open rs11.Source,conn,1,1 mode=rs11("mode") rs11.close set rs11=nothing arr_Content=split(News_Content,"[---分页---]") MaxPages=ubound(arr_Content) %> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select top 5 * from News where NewsID<>"& NewsID & " and (SpecialID=" & SpecialID & " or SpecialID2=" & SpecialID & ") and checkked=1 order by NewsID DESC" rs.Open,conn,1,1 if rs.EOF then Response.Write "" else while not rs.EOF title=trim(rs("title")) title=replace(title,"
","") Response.Write "" rs.MoveNext wend Response.Write "" end if rs.Close set rs=nothing end if '------------------------------------------------------------------------------------------------------------------------------------ Response.Write "" Response.Write "" if about<>"" then sql="select top 5 * from news where (about like '%" & about & "%' or title like '%" & about & "%') and title not like '%" & title & "%' and checkked=1 order by newsid desc" set rs=conn.execute(sql) do while not rs.eof title=trim(rs("title")) title=replace(title,"
","") %> <% rs.movenext loop Response.Write "" else Response.write "" end if 'rs.close set rs=nothing set rs1=server.CreateObject("ADODB.RecordSet") rs1.Source="select top "&reviewnum&" * from review where NewsID=" & NewsID & " and passed=1 order by reviewid desc" rs1.Open rs1.Source,conn,1,1 if rs1.EOF then NoReview=1 Response.Write "" Response.Write "" %> <% if not NoReview then while not rs1.EOF author=server.HTMLEncode(trim(rs1("author"))) email=server.HTMLEncode(trim(rs1("email"))) reviewip=rs1("reviewip") content=trim(rs1("content")) ''content=replace(content,"<","<") ''content=replace(content,">",">") ''content=replace(content,chr(13),"
") ContentLen=len(Content) %> <% rs1.MoveNext wend end if rs1.Close set rs1=nothing conn.close set conn=nothing %>
  天门市第一人民医院财务科现有38人,中级以上职称20人,占52.63%,负责全院门诊收费、住院结算、药品结算、成本控制、会计核算以及财务管理工作。下辖会计室、门诊收费室、住院收费室、微机中心、药材会计室。
一、报帐大厅
  2003年11月,在医院领导的同意规划下,新增办公室两间,并改建成报帐大厅,实行柜台式服务。
过去在科室管理上,对收费的地方,都张贴有“财经重地、闲人免进”的标语,而且在科室的朝会上反复强调,每月科室质控也把这事作为一个检查项目,并且扣分到人,但收效甚微。
现在实行柜台式服务后,报帐、结算人员与出纳会计用柜台隔离,使其他人不能直接进入会计室,进入出纳室。一是保证资金的安全;二是管理上规范化。充分体现财经重地的严肃性。
二、档案室
  财务科设有两个档案室,一个大档案室在行政楼一楼,另一个在会计室。会计档案室主要存放前三年归档会计资料。另外会计凭证的装订、整理、立卷归档、借阅登记等工作都在这里完成。
档案室实行专人管理,现在负责这项工作的是潘小军会计。
三、会计电算化室
  这里曾是以前的会计档案室,2002年6月调整后,作为会计电算化室,当时医院投资1.8万元对会计电算化室进行改造,其中办公桌及屏风7000元,改造后的办公室是涣然一新。
会计电算化室实行网络化管理,连网微机共有9台,实行数据共享,网络打印。配备服务器2台,担任主服务器的是奔Ⅳ2。0兼容机、内存256,担任备份服务器的是原装IBM奔Ⅲ550、内存128,备份服务器主要功能备份、会计资料查询。现在使用会计软件是由湖北省卫生厅、财政厅和湖北华烨网络技术有限公司联合开发的《仁寿财务·会计核算系统》2。0版。服务器系统Win2000,数据库管理软件SQL2000。
人员分岗位定岗定责,根据岗位性质和工作量,实行一人一岗或一人多岗。会计室现有10人,承担的工作主要有现金银行结算、医疗预交款的管理、职工工资核算、全院收支核算及财务报表、财务分析等。
四、门诊收费室
  门诊收费室有13人,其中:挂号2人,收费11人。负责人刘春枝。年门诊挂号30万人次,年门诊收费人次50万人次,年门诊业务收入2978万元。主要工作是负责门诊普通病人和医保病人挂号、诊治、检查等项交款的收费工作,并逐日填报“门诊收费日报表”、“挂号收入旬报表”,次日交门诊审核室审核。
门诊收费网络系统建于1998年4月,使用的是湖北省安泰公司开发提供的应用软件,现在使用的是上海华东电脑公司的门诊收费系统,彻底告别了手工作业的时代,实现了微机收费。会计核算业务全面电算化的开展,大大提高了门诊收费的效率,缩短了病人排队时间,方便了广大患者就医,同时也推动了医院办公自动化的发展。
五、住院收费室
  住院收费室有11人,负责人黄亮。年住院人次1.8万,年住院业务收入4095万元。主要工作是负责普通住院病人和医保病人从入院到出院整个过程中的收费和结算工作,并逐日填报“当日发生科室费用明细表”、“血费收入日报表”、“住院费用现金分类日报表”、“原始凭证汇总表”、“医师收治病人分科报表”。
住院收费微机结算在1992年3月15日就使用由省卫生厅组织人员编写的住院结算程序,1998年4月医院投资建立了门诊、住院、药品收费计算网络系统后,住院结算才彻底脱离手工。现在使用的是上海华东电脑公司的住院收费系统。会计核算业务全面电算化的开展,大大提供了住院结算的效率,提高了病人住院费用结算的准确性,减少了漏帐,确保了医院收入的完整,同时也推动了医院办公自动化的发展。

 

 

   宽敞明亮的财务科办公室        整齐规范的财务科微机室

 医院财务行政业务机构设置示意图    会计核算数据处理流程简图

  

  财务科档案室一角          会计档案管理制度

  

    住院收费大厅             住院费用查询处

  门诊划价收费窗口         门诊医技处置收费窗口

  门诊医保收费窗口              门诊语音收费系统 

   药材会计室工作区            计算机中心工作区

 计算机中心大功率不间断电源        计算机中心网络拓扑图

 计算机中心机房一角

 

 

 

 

 

 没有专题信息
  " & Title & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "]

相关信息:
 没有相关信息

相关评论:
 
 
<%end if%><%end if%>