醫(yī)院信息系統(tǒng)his設(shè)計-資料下載頁
2025-01-16 09:11本頁面
【正文】 t trim((, ll_yhzid)) = then (系統(tǒng)提示, 密碼輸入錯誤,請重新輸入!) () (1,200) returnend ifselect , into :,:,: from xt_ks, xt_yhz where = and = :ll_yhzid and isnull(tybz,0)= 0。if then //登陸成功時更改密碼 () open(w_chgpwd)end if()ib_exit = trueclosewithreturn(parent, )2．門診收費界面門診收費窗口首先顯示的是普通的收費項目，如果不是顯示普通的收費，按下F5鍵即可。普通收費窗口分為三屏，窗口的上方顯示病人信息和掛號信息。在掛號編碼處選擇掛號單號碼，在醫(yī)生處選擇病人就診的醫(yī)生。窗口就會中間顯示病人就診信息，中的左邊顯示就診和領(lǐng)用藥物信息以及所需要的費用；單擊一行信息，就會在窗口中間的右邊顯示出這些信息的明細。窗口下方顯示發(fā)票信息和收費信息。發(fā)票號和合計系統(tǒng)已自動給出。在支付方式處選擇支付方式，折扣方式處選擇折扣方式。在收取處輸入所收到的費用，備注處可以添加備注。單擊，出現(xiàn)一個窗口，將收費信息保存。如圖42所示：圖42門診收費部分代碼實現(xiàn)如下：//收費if ( ) = 0 then msg(無收費項目！) return end if //進行收費if dec() 0 then msg(請輸入正確的收取金額！) = = returnend if if dec() 0 or =39。39。 then msg(收取的金額不足！) = = returnend if //保存數(shù)據(jù)nvoc_update datadatastore ds_temp[]ds_temp[1]=ids_fyd ds_temp[2]=ids_fydmxds_temp[3]=ids_sfds_temp[4]=ids_zfxxds_temp[5]=ids_yzxxif ()0 then ds_temp[6]= ids_grzhend ifif (ds_temp)=false then MessageBox(錯誤,保存失敗！,StopSign!) messagebox(錯誤原因, , StopSign!) //窗口初始化// if not =2 then () //如果不是特殊門診就初始化 setfocus()end if= true //可以保存 ibl_cansave=true(0)datawindowchild dwc_child(ghid,dwc_child)( sqlca)( ) ue_clearhj()3．醫(yī)生工作站—保存醫(yī)囑界面進入醫(yī)生工作站，醫(yī)生給病人就診時給病人開醫(yī)囑。選擇藥品分類，輸入藥品的代碼，發(fā)藥量、藥品的用法、單次的劑量、給藥的時間；保存數(shù)據(jù)——保存醫(yī)囑，首先保存治療信息和注射信息；更新醫(yī)囑中的處方號，因為處方號直接跟收費掛鉤，（同一類項目得到同一個處方號），然后調(diào)用存儲過程進行醫(yī)囑計價；將處方醫(yī)囑信息加入病歷中，判斷是否打印單據(jù)。如圖43所示：圖43醫(yī)生工作站—保存醫(yī)囑部分代碼實現(xiàn)如下：//醫(yī)生long ll_yzh, ll_yzxh, ll_row, ll_yzrow //醫(yī)囑序號、醫(yī)囑以及子囑的行號long ll_yzhsl //醫(yī)囑號數(shù)量string ls_yzh, ls_yzh2, ls_yzh3, ls_yzh4 //醫(yī)囑號列表long ll_yzfzh ,ll_zssl= 0 ,ll_zlsl =0 //醫(yī)囑分組號, 數(shù)量boolean lb_ypbz //藥品醫(yī)囑標志integer li_yzxmid,li_temp //處理超額劑量datetime tBoolean ll_pdzl = false, lb_pdzld= false //處理是否能開注射單, 初始值 falseinteger ll_derow, ni string ls_yzh_zs, ls_yz_zlt= datetime(gf_getserverdatetime()) //取得當前時間if ( )= 1 then messageBox(提示,你的輸入有誤!) returnend if//保存數(shù)據(jù)= falseif (true, false)=1 then //注意true,false rollback。 = true MessageBox(錯誤,醫(yī)囑保存失??！) returnend iflong ll_zldh, ll_zsdhinteger li//產(chǎn)生治療號if ll_zlsl 0 then ll_zldh= long(gf_gethmb(mzzldh, ll_zlsl)) ll_zlsl for ll_row =1 to () ll_zldh ++。 (ll_row, zldh,ll_zldh) //觸發(fā)器插入 mys_zld_zx next if (true, false)=1 then //注意true,false rollback。 = true MessageBox(錯誤,治療保存失?。? return end if end if //自動插入門診病歷wf_yztobl()MessageBox(提示,保存成功!)//判斷有無打印單據(jù)datastore ds_printds_print= create datastore = d_mys_yzlr_dydj(sqlca)(ls_yzh)if () 0 then openwithparm(w_mys_yzlr_dydj, ls_yzh)end if//刷新()() ue_retrieve_yz()參考文獻[1]薩師煊，王珊：《數(shù)據(jù)庫系統(tǒng)概論》[M]，高等教育出版社，1991：459500. [2]王冬等，2006?，F(xiàn)代醫(yī)院管理理路與方法，上?？茖W技術(shù)文獻出版社。[3]袁先鳴. 醫(yī)院的信息化管理與資金合理使用[J]，中國衛(wèi)生經(jīng)濟, 1995,(04) [4] 傅征, 任連仲. 醫(yī)院信息系統(tǒng)建設(shè)與應用, 北京: 人民軍醫(yī)出版社, 2002 [5]李曉春等，1999。多窗口住院管理系統(tǒng)的設(shè)計，上海生物醫(yī)學工程。[6]潘鋒，2001。醫(yī)院信息管理系統(tǒng)的開發(fā)，航空計算技術(shù)。[7]郭瑞軍：《ASP數(shù)據(jù)庫開發(fā)實例精粹》[M]，電子工業(yè)出版社2004：6084. [8]袁鵬飛，1998。SQLServer數(shù)據(jù)庫應用開發(fā)技術(shù)，人民郵電出版社。[9]吳秀英等，2003。醫(yī)院信息管理系統(tǒng)—住院管理子系統(tǒng)嘗試，中國知網(wǎng)。[10]鞠華秋,姚子杰. ?？漆t(yī)院信息系統(tǒng)構(gòu)建模式的探索[J]. 中國醫(yī)院管理, 2006 (07) [11]周勝軍等，2000，計算機數(shù)據(jù)庫管理在醫(yī)學中的應用，北京生物醫(yī)學工程。[12]彭琿：SQL Server安全性[M]，北京:清華大學出版社,2004：222251. [13]Hans Van Vliet．Software EngineeringPrinciples and Practice，Second Editon[J]，New York：John Wiley amp。 Sons．2000. [14] (美)David M. Kroenke，2003，數(shù)據(jù)庫處理基礎(chǔ)、設(shè)計與實現(xiàn)，北京電子工業(yè)出版社。 [15] Dustin, E.,2003,Automated Software Testing: Introduction, Management, and Performance, Publishing House of Electronics Industry.
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1