門(mén)診收費(fèi)系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)定稿-資料下載頁(yè)
2025-06-18 15:10本頁(yè)面
【正文】 Return 1End If// Script: w_ys_mz_clinic_recipe::addbill()函數(shù)// Reason: 增加門(mén)診處方每張西藥、成藥方不得超過(guò)5種藥品、應(yīng)當(dāng)填寫(xiě)臨床診斷的控制// Modified By: 何俊 Date: 20120308Long ll_ExistsIf = 1 and 39。999939。 ThenSelect count(*) Into :ll_Exists From YS_MZ_jbzd Where JZXH = : and tjbz = 1 and zfpb =0 Using SQLHIS。If ll_Exists = 0 Or IsNull(ll_Exists) ThenMessageBox(39。提示39。,39。應(yīng)當(dāng)先填寫(xiě)臨床診斷（提交后有效）!39。) CallFunction(39。Diag39。, ,0)Return 1End IfEnd If// 是否存在皮試藥品lb_HasSensCheck = FalseFor i = 1 To ()If Not IsNull([i]) And [i] = 1 Thenlb_HasSensCheck = TrueEnd IfIf (Long([i])) = 1 Thenlb_HasSensCheck = TrueEnd IfNextIf () 0 Thenll_RecipeId = [1]If Not IsNull(ll_RecipeId) And ll_RecipeId 0 ThenIf Not lb_HasSensCheck Then // 存在皮試記錄時(shí)暫不提交處方If (ll_RecipeId, False) 1 ThenMessageBox(39。提示39。, 處方解鎖失敗!~n + )End IfIf (2, False,ll_RecipeId) 1 ThenMessageBox(39。提示39。, 費(fèi)用單解鎖失敗!~n + )End IfEnd IfEnd IfIf (3, False,ll_RecipeId) 1 ThenMessageBox(39。提示39。, 皮試單解鎖失敗!~n + )End IfEnd If()(0) = ai_RecipeTypeChoose Case Case 1li_PharmId = Case 2li_PharmId = Case 3li_PharmId = Case Elseli_PharmId = End Choose// Script addbill ( integer ai_recipetype ) // Reason: 如果是草藥方,則草藥方按鈕有效// Modified By: xuxb Date: if ai_RecipeType = 3 Then = TrueElse = FalseEnd If[1] = // 就診序號(hào)[1] = ai_RecipeType // 處方類型[1] = // 科室代碼[1] = // 醫(yī)生代碼[1] = gf_Server_Date() // 開(kāi)方日期[1] = 1 // 處方帖數(shù)[1] = 0 // 配藥標(biāo)志[1] = 0 // 發(fā)藥標(biāo)志[1] = 0 // 退藥標(biāo)志[1] = 0 // 打印標(biāo)志[1] = 0 // 作廢標(biāo)志[1] = 0 // 特殊處方[1] = 0 // 特殊類型[1] = 2 // 處方鎖[1] = [1] = // 藥房If Isnull(ii_pharmacy) Or ii_pharmacy =0 Then [1] = li_PharmId // 發(fā)藥藥房Else[1] = ii_pharmacy End If// 病人信息[1] = // 病人編號(hào)[1] = // 病人姓名// Script: w_ys_mz_clinic_recipe::addbill()函數(shù)// Reason: 門(mén)診開(kāi)單增加單據(jù)來(lái)源字段// Modified By: xugt Date: 20120221 [1] = 1 //單據(jù)來(lái)源：1醫(yī)生開(kāi)單 2藥房劃價(jià) 3藥房退藥 4醫(yī)技劃價(jià) 5體檢開(kāi)單 6收費(fèi)劃價(jià) 7門(mén)診退費(fèi)// 處方明細(xì)信息()// 關(guān)聯(lián)項(xiàng)目(0, True)()Return 15. 總結(jié)與展望 最近10多年來(lái)，世界各國(guó)都面臨著醫(yī)療成本日益增加，醫(yī)療供需矛盾日趨擴(kuò)大，一場(chǎng)幾乎是全球范圍內(nèi)的醫(yī)療保健制度改革方興未艾。由于這場(chǎng)改革所追求的目標(biāo)是降低醫(yī)療成本，提高醫(yī)療質(zhì)量，這就要求必須有一個(gè)與之相應(yīng)的以病人為中心的集管理、醫(yī)療等為一體的醫(yī)院信息系統(tǒng)。大規(guī)模一體化醫(yī)院信息系統(tǒng)將是未來(lái)的發(fā)展趨勢(shì)，醫(yī)院信息系統(tǒng)的建設(shè)和發(fā)展面臨新的挑戰(zhàn)和機(jī)遇 參考文獻(xiàn)[1]王冬等，現(xiàn)代醫(yī)院管理理路與方法，2006上?？茖W(xué)技術(shù)文獻(xiàn)出版社。[2]黃梯云,管理信息系統(tǒng)(第四版) 高等教育出版社 2009年07月 [3] 傅征, 任連仲. 醫(yī)院信息系統(tǒng)建設(shè)與應(yīng)用, 北京: 人民軍醫(yī)出版社, 2002 [4]潘鋒，2001。醫(yī)院信息管理系統(tǒng)的開(kāi)發(fā)，航空計(jì)算技術(shù)。[5]袁鵬飛，1998。SQLServer數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)技術(shù)，人民郵電出版社。[6]鞠華秋,姚子杰. ?？漆t(yī)院信息系統(tǒng)構(gòu)建模式的探索[J]. 中國(guó)醫(yī)院管理, 2006 [7]周勝軍等，2000，計(jì)算機(jī)數(shù)據(jù)庫(kù)管理在醫(yī)學(xué)中的應(yīng)用，北京生物醫(yī)學(xué)工程。[8]彭琿，SQL Server安全性[M]，北京:清華大學(xué)出版社,2004 [9]慕靜，管理信息系統(tǒng)開(kāi)發(fā)方法工具與應(yīng)用 清華大學(xué)出版社 2014年6月[10]金新政，現(xiàn)代醫(yī)院信息系統(tǒng) 人民衛(wèi)生出版社 2009年10月 致謝在此我要對(duì)我的指導(dǎo)老師黎林老師致以衷心的感謝和深深的敬意。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1