醫(yī)院病房管理系統(tǒng)分享

1、真誠為您提供優(yōu)質參考資料，若有不當之處，請指正。管理信息系統(tǒng)課程設計報告設計題目： 醫(yī)院病房管理系統(tǒng) 專 業(yè) 經(jīng)濟學類 班 級 經(jīng)類093 學 生 彭菲 學 號 3090552097 指導教師 薛宏權 時 間 2012.6.25-2012.6.29 地 點 經(jīng)管學院實驗室機房 2012 年 春季 學期 目 錄一緒論2二系統(tǒng)規(guī)劃2三 系統(tǒng)分析21. 可行性分析22. 組織結構調查。33.業(yè)務調查34.數(shù)據(jù)流程圖45.數(shù)據(jù)字典56.數(shù)據(jù)加工處理的描述9四系統(tǒng)設計91.系統(tǒng)總體設計92.代碼設計及設計規(guī)范113.系統(tǒng)物理配置方案114.存儲文件格式設計115.輸出設計156.輸入設計16五系統(tǒng)實施與

2、維護171.選擇的開發(fā)平臺172.計算機程序設計17六·對自己工作的評價································24 一·緒論 隨著計算機網(wǎng)絡和通訊技術的發(fā)展與融合，信息化已經(jīng)在世界各國各領域的應用越來越廣泛，這些應用帶來了生產(chǎn)方式的改

3、革，經(jīng)濟的快速增長和人類文明的進步，整個世界進入了一個信息時代。 醫(yī)院作為特殊的服務行業(yè)，管理方式千差萬別，并且使用著大量的先進的儀器設備，處理著大批的業(yè)務，產(chǎn)生龐大的信息，因此醫(yī)院急需一套適合本院的醫(yī)院信息系統(tǒng)來收集處理信息，從而更好地利用信息，來提高醫(yī)院管理水平，改善醫(yī)院服務質量，加速醫(yī)院臨床研究步伐，提高醫(yī)院的競爭能力。二·系統(tǒng)規(guī)劃 規(guī)模的大型化，傳統(tǒng)的醫(yī)院靠人工管理的方式已經(jīng)越來越不適應現(xiàn)代醫(yī)院的規(guī)模了。而且隨著電腦的普及及電腦性能的提高，使用電腦來管理醫(yī)院的常規(guī)運作已經(jīng)成為必然。同時，用電腦進行管理可以大大的節(jié)約勞動力降低醫(yī)院的成本，降低人為的誤操作，大大的提高工作效率，給

4、醫(yī)院和病人同時帶來巨大的方便。本系統(tǒng)就是在這個背景下開發(fā)的，將先進的電腦技術和現(xiàn)代醫(yī)院的管理完美的結合起來，完成以前需要大量人工才能完成的任務，實現(xiàn)了醫(yī)療，服務一體的全新概念的服務和管理方式。三·系統(tǒng)分析1. 可行性分析： 療管理需要大量的人力來管理繁瑣的入院手續(xù)，病歷管理，病房管理，出院管理等工作，非常麻煩，而且由于手工操作，非常容易出錯。而且病歷保存占地方且保存很麻煩，浪費資源更加不用說了。還有繁瑣的手續(xù)，讓病人覺得非常麻煩，也給管理人員造成很大麻煩。直接的影響就是效率低下，成本高，給本來就不想上醫(yī)院的人更加討厭進醫(yī)院。以上問題普遍存在于各個醫(yī)院。仔細想來，其實這些工作電腦其實完

5、全可以勝任，而且非常容易完成。通過電腦的輔助管理，不僅可以解決上述問題，而且符合現(xiàn)代的潮流，體現(xiàn)一個醫(yī)院的現(xiàn)代化形象，對于提高員工工作效率，加速資金周轉、降低各項成本及改善服務質量都有十分積極的作用。 一個成熟的醫(yī)院管理系統(tǒng)不僅僅是記錄病人的信息，提供查詢，報表打印等一系列簡單的工作，它能讓工作人員從煩瑣的手工操作中解脫，并且醫(yī)院管理系統(tǒng)本身就代表著一種管理方法。隨著它的深入，將帶動企業(yè)的運做，為管理和決策提供支持。為了達到這個要求，它必須依靠高起點的硬件環(huán)境和軟件開發(fā)工具來保證系統(tǒng)的穩(wěn)定和正常運行?？傊?，使用該醫(yī)院管理系統(tǒng)，將會有以下好處： 1.高效的病房管理：能有效的提高病房使用率。 2.

6、提高決策依據(jù)：管理者可以隨時了解經(jīng)營情況，以制定相應的經(jīng)營方針。 3.減輕員工的工作負擔：從而使員工把更多的精力放在提高為病人服務的質量上。 4.簡單、方便地保存和查詢歷史資料。 5.樹立良好的醫(yī)院形象。 6.可以方便的查閱病人的病歷及類似病人的醫(yī)療情況，給醫(yī)生提供可靠參考。 7.對病人的實時監(jiān)控，保證病人的生命安全。2·組織結構調查。醫(yī)院院辦醫(yī)務處財務處信息中心收發(fā)室文書檔案室門診辦公室專家門診門診病案室掛號室醫(yī)療部門資產(chǎn)會計室收費處經(jīng)濟核算科統(tǒng)計師計算機室急診科內(nèi)科外科婦產(chǎn)科兒科中醫(yī)科五官科放射科功能科檢驗科上圖是醫(yī)院的組織結構圖，醫(yī)院下設院辦、醫(yī)務處、財務處、信息中心等，其中醫(yī)

7、務處為核心部分，分為門診辦公室、專家門診、門診病案室、掛號室、醫(yī)療部門，其中最重要的部門醫(yī)療部門又分為急診科、內(nèi)科、外科、婦產(chǎn)科、兒科、中醫(yī)科等各科室，從上至下，各機構、部門的關系比較清晰。3,業(yè)務流程圖：病人re人病歷門診掛號處掛號單收費處收費證明檢查科室門診藥房醫(yī)生科室報告單住院單處方住院建議檢查單住院處住院申請表住院信息出院報告上圖即為醫(yī)院病房管理系統(tǒng)的業(yè)務流程圖，大致過程如下，病人將病歷交給門診掛號處，進行掛號收費之后，開據(jù)收費證明交給檢查科，進行所需的各類檢查，然后將檢查報告單交給醫(yī)生科室，醫(yī)生根據(jù)檢查結果作出診斷，開處方，并決定病人是否需要住院，如需住院，醫(yī)生開出住院單，并遞交給病

8、人住院建議，病人根據(jù)醫(yī)囑，填寫遞交住院申請表給住院部，住院處可隨時給出病人的住院信息，并在病人出院時打印出院報告，收費處將醫(yī)藥費、檢查費、住院費等各項費用統(tǒng)計匯總收取。4.數(shù)據(jù)流程圖：病人掛號處P1掛號處理收費處P2收費處理檢查科室P3檢查處理病歷病歷報告單醫(yī)生科室掛號單掛號單現(xiàn)金收據(jù)收據(jù)收據(jù)檢查結果數(shù)據(jù)P4診斷處理報告單數(shù)據(jù)檢查單處方檢查結果檢查結果住院部P5住院處理病歷信息就診情況病房信息出院報告住院信息住院信息住院數(shù)據(jù)費用信息費用信息上圖是醫(yī)院病房管理系統(tǒng)的數(shù)據(jù)流程圖，大致過程如下，病人的基本信息通過病歷傳送到掛號處，掛號處經(jīng)過收費掛號處理之后，將收據(jù)信息傳送給檢查科室和醫(yī)生科室，檢查科

9、室進行所需各項檢查之后，將檢查結果數(shù)據(jù)存于檢查報告單中，并將報告單數(shù)據(jù)傳送到醫(yī)生科室，醫(yī)生科室收到收費單據(jù)和檢查報告單，然后進行診斷處理，決定病人是否需要住院，如需住院，則把病人的相關信息提供給住院部，將病人的將查結果存于診斷檢查單中，住院部查詢病房基本信息，并根據(jù)病人的就診情況，安排病房，將病人的床位、護理情況存于住院信息中，將病人的就診、住院、收費情況等相關數(shù)據(jù)存于出院報告中。5.數(shù)據(jù)字典：1）數(shù)據(jù)項的定義 數(shù)據(jù)項編號：F02-01 數(shù)據(jù)項名稱：床位 簡 述：病房床位的編碼 類型及寬度：字符型，8位 取 值 范 圍：“A-00101”“E-00105”2）數(shù)據(jù)結構的定義 數(shù)據(jù)結構編號：D0

10、3-05 數(shù)據(jù)結構名稱：病房基本信息 簡 述：病房的床位、價格、狀態(tài)等基本信息 數(shù)據(jù)結構組成：F02-01 + J01-01 + Z06-053) 數(shù)據(jù)流的定義 數(shù)據(jù)流編號：B01-06 數(shù)據(jù)流名稱：掛號單 簡 述：掛號處開出的掛號單 數(shù)據(jù)流來源：掛號處 數(shù)據(jù)流去向：收費處理模塊 數(shù)據(jù)流組成：科室 + 主治醫(yī)生 + 收費情況 數(shù) 據(jù) 流 量：15份/小時 高 峰 流 量：25份/小時（上午9:00-11:30） 4) 處理邏輯的定義 處理邏輯編號：P05-02 處理邏輯名稱：入住病房處理 簡 述：安排病人入住的病房、床位等 輸入的數(shù)據(jù)流：病人的姓名、性別、身份證號碼、家庭住址，來源于病人基本信

11、息表，病人的診斷信息來源于診斷信息表，病房號、床位、價格、值班醫(yī)生、護理人員，來源于病房信息表。 處 理：住院部根據(jù)數(shù)據(jù)流“病人的診斷信息”，確定病人需要入住的病房、床位、護理條件、收費情況。 輸出的數(shù)據(jù)流：病人的住院信息，出院時的報告，返回給病人。5）數(shù)據(jù)存儲的定義 數(shù)據(jù)存儲編號：E05-04 數(shù)據(jù)存儲名稱：檢查單 簡 述：存放病人的檢查診斷結果 數(shù)據(jù)存儲組成：身份證號碼+姓名+性別+癥狀+檢查結果+診斷結論 關 鍵 字：身份證號碼 相關聯(lián)的處理：P03,P046）外部實體的定義 外部實體編號：S02-01 外部實體名稱：病人簡 述：在本院就診的病人輸入的數(shù)據(jù)流：D02-01，D03-05輸

12、出的數(shù)據(jù)流：D05-06二系統(tǒng)設計1.系統(tǒng)功能結構圖：醫(yī)院病房管理系統(tǒng)查詢病人住院情況病房使用情況系統(tǒng)維護打印病人信息查詢病房信息查詢?nèi)朐盒畔⒌怯洸∪俗≡呵闆r查詢出院信息處理病房記錄查詢病房信息更新系統(tǒng)密碼修改打印出院報告上圖為醫(yī)院病房管理系統(tǒng)的功能結構圖，該系統(tǒng)的功能主要分為五個模塊：查詢功能、病人住院情況處理功能、病房使用情況更新、系統(tǒng)的維護、打印功能，能夠查詢病人基本信息、病房基本信息、病人住院情況查詢和處理、入院信息登記、出院信息刪除，還能進行病房使用信息的更新，系統(tǒng)登錄密碼的修改、打印功能，功能較為全面。2.代碼設計： A-00101，B-00101，C-00101 床位編碼的設計：

13、采用字母與數(shù)字結合，打頭字母表示病房所在科室，比如A-00101，字母A表示內(nèi)科，前三位數(shù)字表示所在科室的病房號，比如A-00101中001表示內(nèi)科的001號病房，后兩位數(shù)字表示所在病房中的病床編號，比如A-00101中后兩位數(shù)字01表示內(nèi)科001號病房里的01號病床，同理，B-00101，C-00101也是采用此原理編碼。3.數(shù)據(jù)庫設計：3.1 數(shù)據(jù)庫概念結構設計：1）系統(tǒng)中實體的E-R圖：病人身份證號碼姓名性別年齡家庭住址聯(lián)系方式病房房號床位單價狀態(tài)值班醫(yī)生護理人員2）系統(tǒng)整體的E-R圖：病人主治醫(yī)生屬于科室入住病房花費費用n1n1n11n3.2 數(shù)據(jù)庫邏輯結構設計：1）病人基本信息表（身

14、份證號碼、姓名、性別、年齡、家庭住址、XXX方式）2）病房基本信息表(房號、床位、單價、狀態(tài)、值班醫(yī)生、護理人員) 表1 病人基本信息表字段名稱字段類型字段長度身份證號碼字符型20姓名字符型8性別字符型2年齡數(shù)值型3家庭住址字符型30XXX方式字符型11 表2 病房基本信息表字段名稱字段類型字段長度房號字符型5床位字符型8單價數(shù)值型4狀態(tài)字符型8值班醫(yī)生字符型8護理人員字符型84.主要功能及界面：1）系統(tǒng)登錄界面：代碼如下：select(thisform.dataenvironment.cursor1.alias)locate for 姓名=ALLTRIM(thisform.text1.val

15、ue); and 工號=ALLTRIM(thisform.text2.value)if found() do form 進入界面else =messagebox("用戶名或密碼不正確，請重新輸入!") thisform.text1.value="" thisform.text2.value=""endifreturnthisform.release2）進入系統(tǒng)主頁面：菜單設計：3）病人基本信息查詢功能界面：代碼如下：do case case thisform.optiongroup1.value=1 bool='身份證號碼=&

16、#39;+"'"+trim(thisform.text1.value)+"'" case thisform.optiongroup1.value=2 bool='姓名='+"'"+trim(thisform.text1.value)+"'" case thisform.optiongroup1.value=3 bool='性別='+"'"+trim(thisform.text1.value)+"'"

17、; endcasethisform.dataenvironment.cursor1.filter=boolthisform.refreshreturn4）病房基本信息查詢功能界面：功能代碼如下：do case case thisform.optiongroup2.value=1 bool='房號='+"'"+trim(thisform.text1.value)+"'" case thisform.optiongroup2.value=2 bool='狀態(tài)='+"'"+trim(t

18、hisform.text1.value)+"'" endcasethisform.dataenvironment.cursor1.filter=boolthisform.refreshreturn5）病人入院信息登記功能：功能代碼如下：Insert Into 病人信息表(身份證號碼,姓名,性別,年齡,家庭住址,XXX方式); values(Alltrim(Thisform.Text1.Value),Alltrim(Thisform.Text2.Value),; Alltrim(Thisform.Text3.Value),val(Alltrim(Thisform.Te

19、xt4.Value),Alltrim(Thisform.Text5.Value),Alltrim(Thisform.Text6.Value)Thisform.Text1.Value=""Thisform.Text2.Value=""Thisform.Text3.Value=""Thisform.Text4.Value=""Thisform.Text5.Value=""Thisform.Text6.Value=""Thisform.Refresh6）病人住院情況查詢功能:功能代

20、碼如下：do case case this.value=1 go top case this.value=2 if not bof() skip -1 endif case this.value=3 skip if eof() skip -1 endif case this.value=4 go bottom case this.value=5 sfzh="" do form 輸入身份證號碼 qjlh=recno() if len(sfzh)<>0 locate for 身份證號碼=sfzh if not found() wait window"無此記

21、錄！" go qjlh endif endif case this.value=6 tj=messagebox('需要添加新記錄嗎?',4+32+256,'確認') if tj=6 append blank endif case this.value=7 sc=messagebox('需要刪除當前記錄嗎?',4+32+256,'確認') if sc=6 delete pack endif case this.value=8 thisform.releaseendcasethisform.refresh7）出院信息處理功能

22、：程序代碼如下：SET DELETE ONThisform.Text1.SetFocusLocate For Alltrim(身份證號碼)=Alltrim(Thisform.Text1.Value) And Alltrim(姓名)=Alltrim(Thisform.Text2.Value) and; Alltrim(性別)=Alltrim(Thisform.Text3.Value) and 年齡=val(Alltrim(Thisform.Text4.Value) ) If found() Delete Thisform.Text1.Value="" Thisform.Tex

23、t2.Value="" Thisform.Text3.Value="" Thisform.Text4.Value="" Thisform.Text1.SetFocusELSE MessageBox("鍵入信息有誤，請您認真核對后重新鍵入信息！",48,"警告！") Thisform.Text1.Value="" Thisform.Text2.Value="" Thisform.Text3.Value="" Thisform.Text4.

24、Value="" Thisform.Text1.SetFocusEndIfThisform.Grid1.RefreshThisform.Refresh8）病房信息更新功能界面：程序代碼如下：a=alltrim(thisform.text4.value)locate for 房號= alltrim(thisform.text1.value) and 床位= alltrim(thisform.text2.value) do case case 單價=alltrim(thisform.text3.value) update 病房信息表 set 單價 = a case 狀態(tài) =al

25、ltrim(thisform.text3.value) update 病房信息表 set 狀態(tài) = a case 值班醫(yī)生 =alltrim(thisform.text3.value) update 病房信息表 set 值班醫(yī)生 =a case 護理人員=alltrim(thisform.text3.value) update 病房信息表 set 護理人員 = a endcase thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisfo

26、rm.text4.value=""thisform.refresh9）系統(tǒng)登錄密碼的修改功能：功能的程序代碼如下：set exact onif empty(thisform.text1.value) messagebox("請您注意，用戶名不能為空！") thisform.text1.setfocuselse xm=alltrim(thisform.text1.value) gh=alltrim(thisform.text2.value) xmm=alltrim(thisform.text3.value) qrmm=alltrim(thisform.text3.value) locate for alltrim(工號)=gh and alltrim(姓名)=xm if found() if xmm=qrmm update 工作人員表 set 工號=xmm where alltrim(工號)=gh thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text4.value="" messagebox("密碼已修改成功！"