Quản lý bệnh án bệnh viện

LỜI NÓI ĐẦU Ngày nay, công nghệ thông tin đang ngày càng phát triển không ngừng và ngày càng tỏ rõ tầm quan trọng của mình trong việc đánh giá một xã hội phát triển – một xã hội mà con người đang được giải phóng khỏi những công cụ thô sơ bằng tay sang làm bằng máy móc nhằm giải quyết công việc nhanh hơn tiết kiệm thời gian và đẹp hơn. Vì lẽ đó, công nghệ tin học đang ngày càng được đưa vào mọi lĩnh vực, mọi nghành nghề, tiến tới tự động hoá toàn bộ mọi hoạt động. Trên thế giới cũng như ở Việt Nam ,công nghệ thông tin đã trở thành một ngành công nghiệp mũi nhọn, nó là một ngành khoa học kỹ thuật không thể thiếu trong việc áp dụng vào các hoạt động xã hội như: Quản lý, kinh tế, thông tin Trong công tác quản lý, tin học đã làm giảm nhẹ sự tham gia của con người, tiết kiệm thời gian gọn nhẹ và tiện lợi hơn rất nhiều so với việc làm thủ công quản lý tên giấy tờ như trước đây, nhất là nó làm hẹp không gian lưu trữ, tránh đựơc sự thất lạc dữ liệu, tự động cụ thể hoá các lượng thông tin theo yêu cầu của chúng ta. Với mong muốn tận dụng đựơc những ưu điểm trên cho công tác quản lý bệnh viện, em xin đưa ra một giải pháp lập trình cho bài toán quản lý bệnh án bệnh viện nhằm giúp đỡ giảm thiểu lượng công việc khó khăn cho các nhân viên trong bệnh viện. Bởi vì trước một khối lượng bệnh nhân nhiều như hiện nay thì các yêu cầu đặt ra cho việc quản lý theo phương pháp thủ công sẽ không thể đáp ứng được, do đó công việc gặp rất nhiều khó khăn. Nó đòi hỏi phải có nhiều nhân lực, nhiều thời gian và công sức, mỗi bệnh nhân khi nhập viện thì có một hồ sơ bệnh án cho nên việc lưu trữ, tìm kiếm, bổ sung, sửa đổi để đáp ứng yêu cầu không phải là dễ dàng có khi còn có cả nhầm lẫn và sai xót. Từ những nhược điểm trên ta nhận thấy cần thiết phải có một hệ thống tin học hoá cho việc quản lý bệnh án cũng như các hệ thống quản lý khác. Trước hết để quản lý được một khối lượng lớn bệnh nhân của một bệnh viện, phải tổ chức tốt hệ thống lưu trữ hồ sơ để có thể đáp ứng được những yêu cầu: tiết kiệm chỗ, dễ tìm kiếm, dễ bổ sung sửa đổi. Hệ thống quản lý phải có khả năng phát hiện lỗi và xử lý kiểm tra tính đúng đắn của dữ liệu ngay từ khi cập nhật, phải có chức năng bảo mật dữ liệu đáp ứng được nhu cầu bảo mật thông tin của hệ thống. Qua kết quả thu thập tài liệu và nghiên cứu tìm hiểu thực tế tại bệnh viện Y Học Dân Tộc về công tác quản lý bệnh án, em đã hoàn thành đề tài này. Với trình độ và thời gian có hạn, chắc chắn rằng nội dung thu thập tài liệu còn có nhiều thiếu xót, do đó chưong trình chắc chắn có nhiều khiếm khuyết. Rất mong sự giúp đỡ của các thầy cô giáo cùng các bác, các anh chị tại viện Y Học Dân Tộc để chương trình được hoàn thiện hơn. Xin chân thành cảm ơn thầy giáo hướng dẫn Nguyễn Cảnh Lương, các thầy cô giáo nhà trường và các bác, các anh chị công tác tại viện Y Học Dân Tộc đã nhiệt tình hướng dẫn và giúp đỡ em hoàn thành đề tài này. CHƯƠNG I I. Giới thiệu về ngôn ngữ lập trình Visual Basic: Visual Basic là một ngôn ngữ soạn thảo chương trình theo kiểu điều khiển bằng sự kiện (Event Driven Programming language). Khác với ngôn ngữ soạn thảo chương trình có cấu trúc, chương trình Visual Basic không soạn thảo tuần tự các lệnh theo thứ tự đã quy định mà ứng xử hành động của người sử dụng hay một sự kiện xảy ra đối với hệ thống. Nếu không có sự kiện nào xảy ra thì chương trình không buộc phải chấm dứt mà trong tình trạng chờ đợi cho đến khi người sử dụng chấm dứt sử dụng hệ thống. Vì vậy một chương trình Visual Basic không có chương trình chính để điều khiển hệ thống áp dụng mà quy định các thủ tục được thi hành khi có sự kiện xảy ra bằng cách gán các thủ tục vào sự kiện của đối tượng. Còng nh các ngôn ngữ lập trình khác Visual Basic là một ngôn ngữ hoàn thiện với các thành phần cơ bản: + Các kiểu dữ liệu chuẩn (số, chuỗi, Date/Time,Logic…), kiểu tự tạo. + Biến, mảng kiểu chuẩn hoặc tự tạo. + Các thủ tục vào ra trên bàn phím hay trên màn hình. + Cấu trúc lặp Loop, cấu trúc Select case, cấu trúc vòng lặp for, while, until. + Cấu rúc rẽ nhánh if then else. + Tạo tệp, ghi tệp, đọc tệp (nhị phân và văn bản). Đặc biệt, so với các ngôn ngữ lập trình trên Dos, Visual Basic có những đặc điểm khác biệt cơ bản: + Về tổ chức, Visual Basic có các thủ tục, hàm độc lập nằm rải rác trên các đơn thể hoặc biểu mẫu, trong các dự kiện của đối tượng. Chúng không tổ chức thành một chương trình thống nhất như trong C hay Pascal. + Về hoạt động, chương trình Visual Basic hoạt động theo hướng dự kiện. Khi một sự kiện xẩy ra (ví dụ bấm chuột tại nút lệnh) thì một thủ tục được kích hoạt, nó bắt đầu thực hiện và có thể nó sẽ gọi tới một một chuỗi hàm và thủ tục khác. + Visual Basic sử dụng các khái niệm của lập trình hướng đối tượng như các lớp đối tượng, phương thức, thuộc tính. Visual Basic cho phép khai báo biến biểu diễn đối tượng của CSDl. Những biến này giúp ta xử lý một biểu mẫu. Một bảng truy vấn dễ dàng. Trong chương trình ‘ Quản lý bệnh án bệnh viện’ có sử dụng những biến này, ví dụ như form, recordset… II. Cấu trúc của chương trình Visual Basic: Gồm nhiều form, đơn thể được phân loại nh sau: + Đơn thể của mỗi biểu mẫu. + Các đơn thể chung thuộc đối tượng Module + Các nhóm thủ tục, mỗi nhóm ứng với một thủ tục sự kiện + Có thủ tục dùng chung Chương trình hoạt động theo sự kiện. III. Đối tượng và các tham chiếu đến các đối tượng: a) Các Object và các Collection: Dựa trên ý tưởng một đối tượng có thể chứa nhiều đối tượng khác. Chẳng hạn form chứa các Control (nút điều khiển nh Text Box, Command Button, List Box, Combo Box… + Các kiểu đối tượng: DBEngine, Workspace, Database, form, TableDef (làm việc với cấu trúc của bảng), QueryDef (làm viẹc với cấu trúc của Query), Recordset, Control (ô diều khiển của các form). Field (các trường của bảng), Index (các chỉ mục, chỉ số của bảng) + Đối tượng: Mỗi một kiểu thì có nhiều đối tượng cụ thể - Biến đối tượng: Là một biến kiểu đối tượng và được khai báo tường minh. Dùng biến đối tượng để khai báo tới một đối tượng cụ thể. - Tuyển tập các đối tượng: quy tắc đặt tên các tuyển tập: dùng tên kiểu nhưng thêm chữ ‘s’ vào cuối trừ DBEngine. Vd:Databases. - Đối tượng khởi thuỷ: không nằm trong bất kỳ đối tượng nào khác. Vd: DBEngine. - Collection là một tập hợp các Object (đối tượng) cùng loại. b) Làm việc với các thuộc tính và hành vi của các đối tượng: + Thuộc tính (Property): Để mô tả các tính chất của các đối tượng. + Hành vi (Method): Để diều khiển các hành xử (Behavious) của đối tượng. - Tham chiếu đến các thuộc tính của đối tượng theo cú pháp: Object.Property. Vd: Command1.Endable=True. Thay đổi các thuộc tính của dối tượng: Object.Method [(arglist)] trong đó arglist là danh sách các đối mục phải đặt trong dấu ngoặc đơn (), các trường hợp khác không yêu cầu ngoặc đơn. Các đối mục trong danh sách được phân cách nhau bởi dấu phẩy’.’ Vd: Dim mydb as database, myset, as recordset, ws as workspace Set ws = DBEngine.Workspace(0) Set mydb = ws.OpenDatabase(path+”dulieu.mdb”) Set myset = mydb.OpenRcordset(‘Tiêu đề”, dbOpenĐynaset) … myset.close mydb.close Hành vi OpenRcordset của đối tượng Database trả về một Recordset, vì vậy yêu cầu có dấu () quanh danh sách các đối mục. Hành vi close của đối tượng recordset không trả về giá trị nào và không yêu cầu đối mục * Lưu ý: Muốn tham chiếu đến tính chất hay hành vi của đối tượng dùng IV. Thủ tục và hàm: a) Cú pháp: + [static][private] sub Tên_thủ_tục([danh sách đối]) Các câu lệnh [exit sub] Các câu lệnh End Sub + [static]private] Function tên_hàm ([danh sách đối]) [as type] Các câu lệnh [exit function] Các câu lệnh End sub b) Khai báo static làm cho các biến khai báo trong thân hàm trở thành tĩnh, giá trị của chúng được giữ nguyên sau lời gọi hàm. c) Khai báo Private quy định phạm vi sử dụng cấp đơn thể (module) Nếu không dùng Byval thì đối sẽ truyền theo kiểu tham số. Có thể dùng với bất kỳ kiểu nào. Dùng Byval thì đối sẽ truyền theo giá trị (phương án này không dùng cho cho các đối có kiểu đối tượng hay kiểu tự tạo. d) Gọi thủ tục: Tên_thủ_tục danh_sách_các_đối (không có dấu () nh trong Pascal) e) Gọi hàm: Tên_hàm(danh_sách_các_đối) (lưu ý có dấu()) V. Thủ tục sự kiện: + Sự kiện của form Sub form_tên sự kiện() … End sub + Sự kiện của ô điều khiển Sub tên_ô_điều_khiển_sự_kiện() … End sub Tên của thủ tục xử lý sự kiện do hệ thống tự xác định. VI. Xử lý các bản ghi trong các bảng: Biến kiểu recordset: có 3 loại - Recordset kiểu Table: Được áp dụng cho các bảng của CSDL hiện hành, cho phép thay đổi dữ liệu (thêm, sửa, xoá), cho phép sắp xếp chỉ mục và tìm kiếm theo chỉ mục. - Recordset kiểu Dynaset: Có thể áp dụng rộng rãi cho các bảng hoặc truy vấn, có khả năng tìm kiếm theo phương pháp find. - Recordset kiểu Snapshot: tương tự nh Dynaset nhưng không cho phép sửa dữ liệu. b) Tạo biến Recordset: Khai báo: Dim myset as Recordset Mở một đối tượng Recordset cụ thể và gán nó với biến Recordset vừa khai báo Set myset=mydb.OpenRecordset (“Tên bảng”,[kiểu]) c) Tham chiếu đến các trường của Recordset Sử dụng cách viết: myset![tên_trường] Myset(“tên_trường) Có thể dùng phép gán để nhận giá trị của các trường, thay đổi nội dung các trường e) Đếm số bản ghi của một Recordset: myset.Recordcount f) Ghi dữ liệu vào một bảng: Giả sử myset có 2 trường Field1 và Field2 Myset.AddNew Myset(“Field1”)=giá_trị_1 Myset(“Field2”)=giá_trị_2 Myset.Update VII.Nhập dữ liệu từ bàn phím: Có thể nhập dữ liệu từ bàn phím bằng 2 cách: Cách 1: dùng hàm InputBox() Dữ_liệu=Inputbox[$](thông_báo[,tiêu_dề][,gt_mặc_nhiên][,x,y] Hàm Inputbox() trả về giá trị kiểu variant. Hàm Inputbox$() trả về giá trị kiểu string. Trong đó: Thông báo: là biểu thức kiểu xâu ký tự được biểu thị trong hộp thoại Tiêu đề : Biểu thức kiểu xâu ký tự chứa tiêu dề của hộp thoại Gt_mặc_nhiên: biểu thức kiểu xâu chứa trong ô nhập liệu nếu không có giá trị nào được nhập x,y: Toạ độ góc trên, bên trái của hộp thoại( đơn vị twinps) Cách 2: Nhận dữ liệu từ các ô điều khiển của biểu mẫu Ta có thể dùng toán tử gán để: - Nhận DL từ các ô điều khiển và lưu vào các biến trong chương trình. - Đặt một giá trị lên ô điều khiển. VIII. Dịch, kiểm tra và chạy thử các thủ tục, hàm: + Để dịch: sử dụng “Compile Module” của menu “Run” + Để chạy một hàm: dùng chức năng “Immediate Window” của menu “View” + Bẫy lỗi và xử lý lỗi: Để hành xử những sai lầm mà chúng ta gây ra sự kiện ERROR đối với biểu mẫu ta quy định một thủ tục xử lý sự kiện tại mục tính chất OnError của biểu mẫu. Chương II [...]... tờn l Qun lý bnh ỏn bnh vin Chc nng ny c phõn ró thnh ba chc nng nh hn l: - Qun lý thụng tin bnh ỏn - Qun lý thụng tin bnh nhõn - Tra cu thụng tin - Theo dừi chi phớ - Bỏo cỏo thng kờ Biu phõn cp chc nng (BPC) ca h thng qun lý bnh ỏn Quản lý bệnh án bệnh viện Quản lý bệnh án bệnh viện Quản lý thông tin Quản lý thông tin bệnh nhân bệnh nhân Quản lý thông tin Quản bệnh án tin lý thông bệnh án Tra cứu... bệnh nhân Thông tin cần tra cứu Danh sách bệnh nhân đã đợc cập nhật Mã bệnh nhân Thông tin bệnh nhân Tiêu chí, giá trị tra cứu Mã bệnh nhân, mã dịch vụ Quản lý bệnh án Quản lý thông tin bệnh nhân Mã bệnh nhân Bệnh nhân Thông tin bệnh nhân Bệnh án Mã bệnh nhân, Mã bệnh án Thông tin Mã bệnh nhân cần tra cứu Tổng chi phí Thông tin bệnh án Thông tin bệnh nhân Mã bệnh nhân Tra cứu thông tin Theo dõi chi... qun lý bnh ỏn Thông tin của bệnh nhân Thông tin bệnh án Cán bộ Cán bộ Tiêu chí, giá trị tra cứu nghiệp nghiệp Thông tin cần tra cứu vụ vụ Danh sách bệnh án đã Hệ thống quản lý Bệnh án đợc cập nhật Danh sách bệnh nhân đã đợc cập nhật Tiêu chí, giá trị tra cứu Báo cáo, bảng biểu Thông tin cần tra cứu Cán Cán bộ bộ quản quản lý lý 2.2 Biu lung d liu mc nh: Cán bộ nghiệp vụ Thông tin bệnh án Thông tin bệnh. .. Cậpbệnh nhân nhật hồ sơ bệnh nhân Cập nhật thông Cập nhật thông tin về bệnh án tin về bệnh án Tra cứu theo hồ sơ Tra cứu theo hồ sơ bệnh nhân bệnh nhân Theo dõi chi phí Theo dõi chi phí dịch vụ dịch vụ Báo cáo thông Báo cáo thông tin bệnh nhân tin bệnh nhân Lu trữ hồ sơ Lubệnhhồ sơ trữ nhân bệnh nhân Lu trữ thông tin Lu trữ thông tin bệnh án bệnh án Tra cứu theo hồ sơ Tra cứu theoán sơ bệnh hồ bệnh án. .. nghiệp vụ Bệnh tật Thông tin bệnh tật Thông tin bệnh án Mã bệnh nhân M bệnh tật Thông tin về khoa Quản lý bệnh án Mã khoa Thông tin bệnh nhân Bệnh nhân Khoa Thông tin bệnh án Bệnh án Mã ph ơng pháp điều trị Thông tin về ph ơng pháp điều trị CTDieuTri Gii thớch: Sau khi bnh nhõn ó khỏm bnh v lp bnh ỏn, Cỏn b nghip v s a thụng tin bnh ỏn vo h thng, chc nng Qun lý bnh ỏn s a thụng tin ca bnh nhõn vo kho Bnh... Chc nng qun lý thụng tin bnh nhõn: Thông tin bệnh nhân Cán bộ nghiệp vụ Danh sách bệnh nhân đã đ ợc câp nhật Quản lý thông tin bệnh nhân Thông tin bệnh nhân Bệnh nhân Gii thớch: Cỏc thụng tin ca bnh nhõn c tỏc nhõn ngoi Cỏn b nghip v a vo h thng, chc nng Qun lý thụng tin bnh nhõn s thc hin vic a thụng tin bnh nhõn vo kho bnh nhõn b) Chc nng Qun lý bnh ỏn: Cán bộ nghiệp vụ Bệnh tật Thông tin bệnh tật... phớ cho bnh nhõn v chuyn thụng tin chi phớ li cho Cỏn b nghip v c) Chc nng tra cu, tỡm kim: Cán bộ nghiệp vụ Tiêu chí, giá trị tra cứu Thông tin cần tra cứu Bệnh nhân Mã bệnh nhân Thông tin cần tra cứu Tra cứu thông tin Bệnh án Bệnh án Thông tin cần tra cứu Tiêu chí, giá trị tra cứu Mã bệnh án Thông tin bệnh án Ban lãnh đạo và trởng khoa Gii thớch: Khi Ban lónh o v trng khoa hay cỏn b nghip v cn tra... Tra cu, tỡm kim ca h thng s nhn cỏc yờu cu, cỏc tiờu chớ cn tra cu sau ú nú tin hnh x lý a thụng tin mó bnh nhõn hay mó bnh ỏn vo cỏc kho Bnh ỏn hay Bnh nhõn ly ra thụng tin bnh ỏn hay thụng tin bnh nhõn cn tra cu d) Chc nng bỏo cỏo, thng kờ Bệnh án Bệnh nhân Mã bệnh nhân Thông tin bệnh nhân Mã bệnh án Thông tin bệnh án Báo cáo thống kê Yêu cầu Báo biểu Ban lãnh đạo và trởng khoa Gii thớch: Khi Ban... dịch vụ Tiêu chí, giá trị tra cứu Mã bệnh án Thông tin bệnh nhân Thông tin bệnh án Thông tin cần tra cứu Ban lãnh đạo và trởng khoa Sơ đồ luồng dữ liệu Báo cáo thống kê Yêu cầu Báo biểu Thông tin bệnh án Trờn õy l Biu biu din trng thỏi ng, biu din hot ng ca vic qun lý Gii thớch s b: + Khi thụng tin bnh nhõn c tỏc nhõn ngoi cỏn b nghip v a vo h thng, chc nng Qun lý thụng tin Bnh nhõn s a thụng tin bnh... chi tit v nghip v x lý bnh ỏn v thu c nhng thụng tin mang tớnh cht thc t tụi ó tin hnh kho sỏt tỡm hiu v cụng tỏc x lý v qun lý bnh ỏn + Phng phỏp kho sỏt Tin hnh phng vn trc tip, thm dũ, tham kho ti liu + Nhng thụng tin thu c I H thng qun lý bnh ỏn bnh vin: 1 H s bnh ỏn: L ti liu quan trng tng kt nghiờn cu khoa hc, tham kho rỳt kinh nghim iu tr phc v ging dy, mang tớnh cht phỏp lý, yờu cu cn phi . bệnh viện Quản lý bệnh án bệnh viện Cập nhật hồ sơ bệnh nhân Cập nhật hồ sơ bệnh nhân L u trữ hồ sơ bệnh nhân L u trữ hồ sơ bệnh nhân Cập nhật thông tin về bệnh án Cập nhật thông tin về bệnh. Quản lý thông tin bệnh án - Quản lý thông tin bệnh nhân - Tra cứu thông tin - Theo dõi chi phí - Báo cáo thống kê Biu phõn cp chc nng (BPC) ca h thng qun lý bnh ỏn Quản lý bệnh án bệnh. bệnh án điều trị nội trú : + Tất cả bệnh nhân điều trị nội trú đều cần phải có bệnh án. + Bệnh án được đánh số: - Theo chuyên khoa đã được quy định trong bệnh viện. - Bắt đầu từ số 1, bệnh án