<%set conn=server.CreateObject("adodb.connection")conn.open "Driver={Microsoft Access Driver (*.mdb)}; dbq="&server.MapPath("../admin3130jyfy.mdb")set rs=server.createobject("adodb.recordset")Sub NiceError(text)conn.closeset conn=nothingResponse.Write "


" & textResponse.EndEnd Subsub openrs(rs, sql,i,j) Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,i,jend subfunction ChkString(strValue,strType)if IsNull(strValue) or trim(strValue)="" then ChkString = " "else if strType="unhtml" then strValue=RTrim(strValue) strValue=replace(strValue,"''","'") strValue=replace(strValue," "," ") strValue=replace(strValue,"<","<") strValue=replace(strValue,vbCrLf,"
") ChkString = strValue exit function end if if strType="replymail" then strValue=RTrim(strValue) strValue=replace(strValue," "," ") strValue=replace(strValue,vbCrLf,"
") ChkString = strValue exit function end if if strType="unhtml1" then strValue=RTrim(strValue) strValue=replace(strValue,"''","'") strValue=replace(strValue," "," ") strValue=replace(strValue,"<","<") strValue=replace(strValue,vbCrLf,"
") strValue=replace(strValue,"|"," ") ChkString = strValue exit function end if if strType="save" then strValue=RTrim(strValue) strValue=replace(strValue,"'","''") ChkString = strValue exit function end if if strType="unreplace" then strValue=RTrim(strValue) strValue=replace(strValue,"''","'") ChkString = strValue exit function end if if strType="save1" then strValue=RTrim(strValue) strValue=replace(strValue,"'","''") strValue=replace(strValue," ","|") ChkString = strValue exit function end if end ifend functionfunction ToURL(strValue) if IsNull(strValue) then strValue = "" ToURL = Server.URLEncode(strValue)end functionfunction DateToFilename(dtDateTime) DateToFilename = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) &".htm"end functionfunction doublenum(fNum) if fNum > 9 then doublenum = fNum else doublenum = "0"& fNum end ifend functionsub strDelete(strID,Forum,Pro) if not isempty(strID) then if instr(strID,",")>0 then dim idarr idArr=split(strID,",") dim id for i = 0 to ubound(idarr) id=idarr(i) del id,Forum,Pro next else del strID,Forum,Pro end if end ifset conn=nothingend subsub del(id,F,P) sql="delete from "& F &" where "& P & id conn.execute sql End sub%> hrhs
 
>>天使颂歌
 
>>好人好事
 
>>职工艺苑
 
 
 
 

 

我院2005年部分好人好事

  一月、二月

  政府一宿舍陈振英等六位老人写来感谢信,对我院市府门诊部的工作人员表示感谢,认为门诊部工作人员对患者服务热情周到,有时晚上10点多下班时突然来患者,不计时间,坚持为患者治疗完再下班,毫无怨言。
  我院原社会监督员周昕对监护室人员表示感谢,其老伴从某医院转来时病情较重,深度昏迷,在我院监护室人员共同努力下,患者转危为安。
  十七中退休教师朱焕龙来信感谢离休门诊工作人员,自己患严重肺心病,呼吸、行动困难,离休门诊黄大夫、吴护士服务热情,帮助联系家人。
  一对久婚不育的夫妻写信感谢生殖医学中心说已经有喜了,感谢孙主任和全科人员。
  患者刘振凤感谢普外科田志龙主任等为其成功实施腹腔镜治好了阑尾炎。
  B超室汤红岩和普外科陈平分别拣到一个手机,都送还失主。

  三月、四月

  神经外科陈德勤主任拒收28床患者红包1000元,已退还患者。
  普外科刘启龙主任和郭东立医生热情服务患者,收到锦旗两面。
  手足外科收到锦旗4面,感谢林彬主任、韩清銮副主任技术高超,科室服务周到。
  曲阜畜牧中心刘长久写来感谢信说,在内分泌科住院期间得到全科同志的周到服务,特别感谢孙琳、沈彩云大夫,问诊查房认真仔细,对病人负责。
  普外科泗水县患者曹美华来信感谢郭东立大夫,素不相识,但他象对待亲人一样对待病人。
  消化内科出院病人杨洪运写来感谢信感谢消化内科孙富强主任对工作认真负责,早来晚走,对科室管理井井有条。
       
  五月

  原医院社会监督员周昕写来感谢信感谢中心监护室马爱英对患者服务认真细致,一丝不苟,表扬心内二病区护士仇雪华、人工肾护士宋方娥、李月兰静脉输液娴熟,病人感觉不到疼痛,希望总结她们的经验,向她们学习。
  梁山农机局陈克昌来信感谢心内科李清贤主任,技术高,对工作一丝不苟,服务好。
  肿瘤科王军业主任拒收患者红包500元。
  心脏外科在开展爱心医疗救助工程以来,克服人员紧张、工作量大等困难,加班加点,忘我工作,有的事迹非常感人,他们在完成大量正常手术的同时,在两个月时间内为30余名特困心脏病患者进行了手术,受到患者和全院职工的一致赞扬。
       
  六月

  普外科收到表扬信、锦旗各一面。
  呼吸内科、内分泌收到锦旗各一面。
  人工肾室患者王允连写来感谢信感谢血液净化中心全体人员热情服务,待患者如亲人。特别感谢胡瑞霞护士长、李月兰、宋方娥护士及时对患者进行抢救,不分节假日和上下班时间,随到随做治疗,增强了患者生活的信心。

  七月

  理疗科胡波拾到1.7万元的存折一个,及时交还失主。
  任城区长沟镇胡新房的母亲患有壶腹癌在普外科住院治疗,家中十分贫困,住院20多天,借的钱已花光,家中粮食已卖完,即使这样出院的钱还交不上,在这种情况下,刘启龙主任,组织普外一科姜彪等大夫为他们捐款700多元,家人十分感激。
  一门诊病人王福真在上厕所时4000多元的手机掉入下水道,维修班朱宝彬班长、张学雷、王力不怕脏、臭,为他将手机捞出,为表感激,病人给维修班送烟送钱,但都被婉言拒绝,病人专门打来电话表示感谢。
  任城区长沟镇张建中为口腔科郭秀娟送来锦旗一面,感谢热情周到服务。
  梁山县一年轻女孩服剧毒农药“百草枯”来院急救,急诊科全体人员加班加点,给予全力抢救,家长闫厚福十分感动,感谢急诊科郭向杰副主任和李士玉大夫等。
  普外科患者张家麒感谢田志龙主任、孙自强大夫,护士长马玉莲精心治疗及护理。
  神经外科收到锦旗两面,一是淮河工程局李道英感谢神经外科为其治好面部神经痉挛,送锦旗一面:医德精湛,医德高尚。二是枣庄患者戴平感谢住院期间精心护理。

  八月、九月

  临沂患者高振云感谢口腔科郭秀娟热情服务患者,送锦旗一面。
  兖州市水利局王敬生全家为消化内科孙主任等医护人员送锦旗一面,感谢精心照顾。
  患者刘芳感谢眼科为其做了白内障复明手术,使其重见光明。
  黑龙江省同江市市政工程管理处张伟东感谢普外科贾振忠大夫及医护人员热情服务,送锦旗一面。
  市供销社患者马树哲感谢呼吸内科姜鲁宁主任医术精湛,服务周到。

  十月、十一月

  吉客隆职工杨庆光来信感谢神经内科护士马静,其父亲在神经内科住院得到很好的照顾。出院后一次不慎将鼻试管拔掉,患者不能正常饮食,家属急得团团转,这种情况下,患者一家人四处跑了几家社区门诊都说没这方面的技术,不敢做。由于老人到附院不方便,就到医院询问,当走出宿舍大门时正巧遇到马静,她主动问有什么事,并亲自到家中为患者做了处理,临走时还留下电话号码说有什么事就打电话。一家人要跪地磕头,被她拦住,马静说别人最困难的时候最需要别人的帮助。三天后,马静象探视自己的老人一样带着牛奶、蛋糕来看望患者,患者家属三代人对附院和马静表示感谢,此后,马静几次到患者家中看望并带着礼物,患者十分感激。
  患者曹洪恩来信反映干部门诊孙瑞芝服务热情,提前一个小时来上班为患者输液。
  患者刘芳来信感谢眼科主任安国兰教授,使其恢复了光明。
  肾内科患者马鲁宁来信感谢李新建主任和石主任、梁大夫、党大夫服务热情,技术一流,挽救了自己的生命,称他们为“病魔的克星、百姓的亲人”。
  汶上刘楼乡辛海村辛怀岐感谢口腔科郭秀娟大夫对病人如亲人,医术高超,服务热情。
  天津患者何桂香及子女来信感谢神经外科为其治疗好了困扰患者20多年的三叉神经痛,“天下第一痛”得到根治除根,十分感激。
  嘉祥县嘉祥镇权园村81岁的徐德修来信感谢泌尿外科主任孟琳,为其成功手术治疗前列腺疾病,为了看病,他说南征北战,一直上当受骗,没想到在附院得到成功治疗。

  十二月

  嘉祥县纸坊镇患者夏星涛来信感谢儿科牛峰海主任、徐学梅护士长和徐霞护士,其孩子在住院期间得到很好治疗和照顾。
  嘉祥县大张楼根元来信感谢儿科全体医护人员。其孩子在县医院出生后抽风很重,转来我院住在儿科监护室,得到了精心治疗。
  心外科患儿刘萧彤的父亲刘伟伟送来感谢信,感谢徐主任、褚主任和张洪宇大夫医术精湛,医德高尚,全科在任务繁忙的情况下,严格做好每一例手术。
  消化内科患者台运江送纪龙副主任锦旗一面“医术精湛  服务热情”。
  梁山县黄河局刘兆旭全家送肾内科李新建主任锦旗一面“华佗在世  妙手回春”。
  出院患者鱼台王庙陈小刚送手足外科张玉护士长锦旗一面“院民一家  关怀备至 责任心强  任劳任怨  ”。
  肝胆外科为42床贫困患者林立春捐款。该患者家庭十分贫困,加上病情较重,生活十分艰难,在田志龙主任、温新元副主任和曹长玲护士长带领下,全科人员给她买来了鸡蛋和牛奶,并捐款1100余元。
  微山县马坡患者刘立友感谢耳鼻喉科魏文忠大夫问寒问暖,不畏脏污,在病人痛苦的时候给予安慰和治疗。
  微山县工商局张万举全家给神经内二科送来锦旗一面,感谢全体医护人员责任心强,医德高尚。

 

 

供稿:xx      

 


 

 

济宁医学院附属医院 版权所有
地址:济宁市古槐路79号
总机电话:0537-2903399 医院传真:0537-2213030
急救中心办公室电话:0537-2900120 咨询电话(济宁市网通用户免费):0537-2966666