BSHIS2.2詳細設計說明書
(門診收費管理系統)
一． 概述
門診系統提供給用戶各種選擇以滿足用戶的各種要求，充分體現了正確性，靈活性及易修 改的特性。
該門診系統可支持多個門診系統(如門診，急診等)，由MS_MZLB表描述
MS_MZLB包括兩個字段MZLB,MZMC，門診類別不同表示是不同的門診系統， 門診名稱為相應的門診系統的名稱(如門診，急診等)，在一般的模塊中不同門診類別的門診的各項數量可分開查詢，使用和統計。
門診收費系統主要功能有：
建立門診病人檔案
掛號收費(包括預約掛號)
退號
轉科
掛號員掛號日報表。
劃價收費
發票作廢
退費處理
統計個人門診收費日報表
門診收費匯總日報。
查詢：可按掛號號表、掛號分類和收款發票檢索等多種方式進行掛號與發票查詢。
報表：提供多種方式的匯總表、統計表和核算表。
系統：提供用戶及權限設置、門診號設置和初始化等功能。
維護：對病人性質、掛號科室、醫師排班、報表格式等進行維護管理。
二． 模塊設計說明書
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 門診病人檔案管理 編號 5．11
功
能
描
述 檔案管理主界面
初始時未列出病人的檔案信息，操作員可通過門診號碼或病人姓名調出相關病人信息，列出的病人信息包括門診號碼，姓名，性別，性質，醫療證號，出生年月 ，婚姻，民族，職業 當操作員通過門診號碼調出病人信息時，病人檔案列表按門診號排序，當操作員通過病人姓名調出病人信息時，病人檔案列表按病人姓名排序，并且操作員還可點擊某個字段名處，已使病人檔案列表按該字段排序
該模塊還可新建，修改病人檔案，當系統參數中選擇了打印病歷，則在該模塊中還可打印病歷，否則打印病歷按鈕變灰不可使用
新建或修改病人檔案
由系統參數輸入病人檔案格式決定新建或修改病人檔案的格式，共有三種格式簡單格式，戶口地址格式，自定義格式，其中簡單格式包括門診號，病人性質，醫療證號，病人姓名，性別，年齡，戶口地址格式比自定義格式多一項戶口地址，自定義格式包括病人檔案的所有項，在客戶化程序時，由客戶化人員根據用戶需求通過修改程序自由設定輸入項
三、打印病歷
根據系統參數中設置的病歷打印使用打印機名，往該打印機上打印病歷
程
序
描
述 一、檔案管理主界面
在dw_1中顯示病人檔案列表，使用的datawindow為d_dagl_list (檔案管理列表)d_dagl_list中內容取自表MS_BRDA(病人檔案)，并且不分門診類別，即不管哪個收費處錄入的病人檔案都能顯示
二、 新建或修改病人檔案
簡單格式使用的datawindow為d_dagl_simple，
戶口地址格式使用的datawindow為d_dagl_hkdz，
自定義格式使用的datawindow為d_dagl_custom
1、 門診號碼，新建病人檔案時通過員工票據管類u_ygpjgl來得到新的門診號碼，修改病人檔案時，門診號碼由外部作為參數傳入
2、 病人性質，病人性質表中mzsy(門診使用)=1的非上級性質(無下級性質的性質)
3、 病人性別，1-男 2-女
4、 病人年齡，有兩種輸入 第一種為輸入數字，表示年齡，第二種為輸入出生年月
系統通過uo_brxx來實現年齡和出生年月的轉化，在MS_BRDA表中保存的為出生年月
5、輸入完畢后保存入MS_BRDA中
三、打印病歷
根據系統參數中設置的病歷打印使用打印機名，往該打印機上打印病歷
該按鈕將數據準備到數組ls_mzxx中，并傳遞給gf_bldy，由gf_bldy()實現病歷打印，gf_bldy由客戶化人員維護
數據窗口 D_dagl_list,dd_brxz_mz,d_hyzk_dm,d_mzdm_dm,d_zydm_dm
引用表 MS_BRDA、GY_BRXZ、GY_DMZD、MS_CYDW、MS_CYDZ
操作表 MS_BRDA
編制 梅芝雨、鐘華 日期 2000.05.16
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 掛號處理 編號 5．12
功
能
描
述 1、 初始化員工票據管理, 自動產生門診號, 取就診號碼, 判斷是否可進行預約
2、 預約掛號、調入預約
3、 掛號：通過輸入門診號碼或就診號碼調出病人信息（可在此調用病人檔案輸入），輸入掛號科室的代碼，選擇某一科室，選擇是否收病歷費，然后，根據掛號費、診療費、病人自付比例，進行收費。
4、 選擇代碼輸入方式：拼音、五筆、角型、其它
可根據就診號碼進行退號、轉科
程
序
描
述 一、掛號初始準備
1、 u_ygpjgl.set_czgh(base_info.userid) 初始化員工票據管理
2、 gf_zdcsmzh() 自動產生門診號
3、 判斷是否可進行掛號預約
4、 取就診號碼：wf_getjzhm()
5、 根據時間判斷早中班ii_zblb
6、 根據日期清已掛人數(YGRS)：更新MS_GHKS表；將過期的預約掛號置標志2：MS_YYGH表，GHBZ = 2
7、 取掛號科室信息dw_ghks.retrieve(gi_mz_code,ldt_begin,ldt_end)
8、 取專家醫生信息dw_ghys.retrieve(ii_zblb,ldt_begin,ldt_end)
9、 取每個科室的預約掛號人數（從MS_YYGH表中）
10、 準備病人信息和掛號信息，等待輸入dw_brxx 、dw_ghxx
11、 取打印病歷標志,病歷費記帳標志、取病歷單價、取掛號費項目,診療費項目,專家費項目、取收費精度和收費金額格式
二、掛號操作
1、預約：從MS_YYGH表中取出預約信息，取掛號費及診療費（取自負比例wf_get_percent()），再調用繳款處理wf_jkcl()
2、 調入預約：open(w_xzyygh)選擇預約掛號窗口，再從MS_YYGH表中取該次調入預約掛號的信息，通過MS_GHKS、MS_YSPB表判斷所選擇的預約掛號科室及醫生是否今天可以掛號，取掛號費及診療費（取自負比例wf_get_percent()），取掛號病歷費，計算專家費用、自負專家費，再調用繳款處理wf_jkcl()
3、 新建檔案：d_dagl_custom
判斷新產生的門診號是否已被使用，是否需要輸入證號，判斷信息輸入完整性，然后新病人產生新的ID號并更新信息。
4、 掛號：
語音發聲控制gf_talk(1,0)
輸入門診號：回車判斷，若未輸入門診號打開新建檔案窗口open(w_ghcl_new)并返回門診號碼；若輸入了門診號，判斷該門診號是否存在，判斷病人是否為老病人（是否收病歷費），判斷該病人是否有帳戶，有則gf_readaccount()讀入病人帳戶
選擇掛號科室：在dw_ghxx中找到相應行, 判斷是否超過科室掛號限額(dw_ghks的ygrs)，取掛號費及診療費（dw_ghks的ghf），wf_get_percent
取自負比例，�。╠w_ghks的zlf）診療費，得到自負掛號費和自負診療費，取病歷費，得自負病歷費。若預約掛號狀態，則wf_yyqr()預約確認，若為掛號狀態，則wf_jkcl()繳款處理。
5、 退號處理：先判斷MZLB表看是否為本門診部的掛號，若是，則更新MS_GHMX SET THBZ=1，INSERT INTO MS_THMX(SBXH,CZGH,MZLB)，UPDATE MS_YSPB SET YGRS=YGRS-1，更新 MS_BRZH的LJFY和ZHYE
6、 轉科處理：先判斷MZLB表看是否為本門診部的掛號，費用與轉科前是否一致，若是，則UPDATE MS_GHKS，UPDATE MS_GHMX
數據窗口 d_gh_ghks、d_gh_ghys、d_ghcl_brxx、d_gh_ghrb_brxz
d_gh_thmx、d_gh_thcl等
引用表 MS_YYGH, MS_GHKS、MS_YSPB、MS_BRDA 、MS_ZHLB、MS_BRZH、MS_YGPJ
操作表 MS_BRDA、MS_SZMX、MS_GHMX、MS_YYGH、MS_THMX
編制 鐘華 日期 2000.05.16
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 掛號日報 編號 5．13
功
能
描
述 操作員每天操作結束進行掛號統計，產生掛號日報，進行結帳處理（可結帳多次）。結帳后，可進行日報查詢（包括明細查詢：掛號明細、退號明細）。
程
序
描
述 某操作員掛號日報：統計——"d_gh_ghrb_brxz"（MS_BRDA,MS_GHMX表中的GHCS、GHJE、ZFJE、BLJE、ZJJE、BRXZ字段）檢索出各性質人數和金額，在日報中減去作廢數據（ MS_GHMX.SBXH 在 MS_THMX中MS_THMX.JZRQ is null）寫就診號碼，wf_cacl_cfhm()，在報表中寫退號號碼，寫大寫的收款總計gf_dxzh(收費總計)，寫現金合計（MS_GHMX）等。結帳——UPDATE MS_GHMX SET JZRQ，UPDATE MS_THMX SET JZRQ。查詢——SELECT distinct MS_GHMX.JZRQ，打開w_gh_rbxz，選擇某一次日報。由d_gh_ghrb_brxz_history檢索出數據，在日報中減去作廢數據，寫就診號碼、退號號碼，其他應收款等。掛號明細——open(w_gh_ghmx)，“d_gh_ghmx”。退號明細——open(w_gh_ghmx)，“d_gh_thmx”。
數據窗口 d_gh_ghrb_brxz、d_gh_ghrb_brxz_history、d_gh_ghmx、d_gh_thmx等。
引用表 MS_GHMX,MS_THMX、MS_GHKS、MS_BRDA等
操作表 MS_GHMX、MS_THMX
編制 鐘華 日期 2000.05.16
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 收費結算 編號 5．21
功
能
描
述 一、 收費準備 : 取初始參數，初始化界面，初始化調入處方單和醫技單的選擇處方窗口 ，初始化收費環境，用于開始一張新的收費發票
二、 收費操作
1、 取發票號碼，輸入掛號產生的門診號（或IC卡號），調出病人信息及帳戶信息進行收費。如果不輸門診號，則錄入性質和姓名進行劃價收費.
2、 如果該ID號病人在處方庫及醫技庫中有自己的未收費的單據（醫生站或藥房開的單據），則調入未收費單據，計算出收費明細金額及總金額.
3、 如果無醫生站開的單據則根據單據優先標志則產生第一張單據
4、 根據用戶的按鍵情況執行相應的功能。F2:增加檢查單 F3:增加西藥方 F4:增加中藥方 F5：增加草藥方F6/F7:查看上下單據.錄入項目代碼可根據參數設置定為固定模式及光標跟隨兩種模式 F8：根據處方號碼或特檢號碼調入處方單或醫技單 F12：取消當前錄入的信息，從新換病人收費
5、 F8實現發票復制功能(主要針對發票作廢后重打,完全復制).
6、 F9對當前的單據進行結算，顯示應收合計，錄入交款金額,提示找回金額，收取現金或支票，如果繳款方式為帳戶，則調用外掛的寫帳戶的函數，保存所有單據，打印發票后，進行新病人的收費。如果不錄入繳款金額，則表示保存當前單據，打印發票，累計總計費用，繼續該病人其他單據的劃價收費.對發票號碼進行遞加。
三、 查詢
可根據發票號碼、病人性質、收費日期、單位名稱、病人證號、門診號碼、病人姓名、收款員條件檢索出發票信息。
程
序
描
述 一、收費準備
用Wf_initpara 初始參數
1、 取輸入碼方式的名稱gl_inputmode
2、 取西藥費、中藥費、草藥費序號
3、 取參數“是否允許不掛號開處方0.不允許 1.允許”、“優先標志1.檢查單優先2.處方優先”、“代碼錄入方式1.固定模式2.光標跟隨”、“處方號碼默認模式1.空 2.取門診號 3.取發票號”、“最大收費項目數”
4、 取收費精度和收費金額格式
5、 取各標志：修改當前發票標志、藥品套餐使用標志、費用套餐使用標志
6、 取藥品過濾方式 0.不過濾 1.過濾庫存大于0的藥品
7、 初始化藥品輸入：u_sele_yp.init(藥品套餐使用標志, 西藥費、中藥費、草藥費序號，藥品過濾方式,"ue_cf_clicked")若某序號為0則不能使用某類藥品。
8、 初始化費用輸入：u_sele_fy.init(1, 費用套餐標志,"ue_yj_clicked")
9、 取藥房庫存方式 1.取最大庫存2.取滿足所需庫存的最大庫存3.取最小庫存4.取滿足所需庫存的最小庫存
10、 初始化員工票據管理u_ygpjgl.set_czgh(base_info.userid)、 u_get_zfbl.initialize(sqlca,false)
11、 創建單一藥品管理對象u_ypxx和單一費用管理對象u_fyxx
12、 初始化調入處方單和醫技單的選擇處方窗口u_select_cfsb.initialize、uo_select_yjxh.initialize
初始化收費環境，用于開始一張新的收費發票
wf_getmzxx(類型1.換新病人0.繼續操作原病人)
13、 清空數據窗口
14、 設置發票號碼u_ygpjgl.get_fphm()
15、 如果新病人則總費用清空open(w_hjsf_mzxx)，wf_close()
16、 寫門診信息dw_mzxx
17、 判斷病人是否有帳戶gf_checkaccount(id)，若該病人有帳戶讀帳戶余額及累計費用gf_readaccount(id)
18、 當門診號碼有效且該病人收費的第一張發票則調入醫生開的處方和醫技單wf_load(id)
處方優先且非掛號病人可開處方則先新增一處方，wf_add_cf(1)，否則新增一單據wf_add_yj()
a) 收費操作
1、W_hjsf_mzxx的說明
若掛號使用，則停在輸入門診號碼處(若"收費使用號碼類型”為就診號碼，則停在輸入就診號碼處)，否則不輸入門診號碼（或就診號碼），停在輸入病人性質處，并調出默認的病人性質
輸入門診號碼，當輸入的門診號碼為空時，停到輸入病人性質處，否則調用函數wf_brxx_mzhm 設置病人信息
輸入病人性質后，根據證號判別，將光標停到輸入病人證號處或輸入病人姓名處輸入病人證號，若未輸入病人證號，則需輸入病人單位
2、發票查詢w_fpjs的說明
從d_fpcxtj的輸入中得到查詢條件,拼接SQL語句，設置d_fpcx的SQL語法，再從MS_MZXX中檢索出數據。
3、w_hjsf_main的說明
①selectsfsb:調入處方單（dw_cf02）
②selectyjxh:調入醫技單(dw_yj02)
③ue_cf_clicked: wf_fixdata_yp_1()判斷是否為套餐u_sele_yp.gettcbz()，判斷是否為最后一行，是則u_sele_yp.getypxh()并wf_set_cf02(),否則①u_sele_yp.clear_tcbz()清套餐標志（不可輸入）
④ue_yj_clicked: wf_fixdata_fy_1()類似于wf_fixdata_yp_1()
⑤dw_cf02的keydown事件中，按數字鍵選擇藥品wf_fixdata_yp()，KeyEnter時，當藥品選擇窗口可見時wf_fixdata_yp(u_sele_yp.il_pagerow)，當不可見時調用uo_ypxx.setypxx(ll_ypxh)和uo_ypxx.setyfkc()， u_sele_yp.settype(li_type)、u_sele_yp.Reflush(ls_code)、u_sele_yp.getypxh()，判斷輸入的是否為套餐
⑥輸入醫生，若需科室核算(ifkshs=1)，則必須輸入醫生
5、 關于快捷鍵的說明：
F2:增加檢查單wf_add_yj()
F3:增加西藥方wf_add_cf(1)
F4:增加中藥方wf_add_cf(2)
F5:增加草藥方wf_add_cf(3)
F8:根據處方號碼或特檢號碼調入處方單或醫技單 wf_fetch()
F9:結算開票 open(w_sh_hjsf_jscl)
F12: 取消 wf_getmzxx(1) 初始化環境變量，重新開始輸入病人
6、 輸入費用的部分事件說明
editchanged:若為固定模式且費用名稱窗口已打開或為跟隨模式， 則會調用窗口w_sele_fy顯示費用，keydown: fymc列：輸入數字則選擇某行，輸入回車，則返回選中行； ylsl列：輸入0，則刪除該行，并新加一行 , 調用w_calc_sfmx填收費明細dw_sfmx,在輸入費用名稱時默認,數量為1
程
序
描
述 7、 復制說明：w_hjsf_copy
根據輸入的發票號碼得到各信息填到w_hjsf_copy，dw_mzxx, dw_cf01, dw_cf02,dw_yj01,dw_yj02中，并寫入w_hjsf_main中
8、結算說明：
判斷收費項目是否大于規定項數dw_sfmx.rowcount() > ii_max_sfxms
wf_save保存單據
根據精度調整dw_sfmx中的zfje和zjje
取現金金額、帳戶自負金額、支票金額、帳戶金額、其它應收等
刪除dw_yj02中空行，刪除dw_yj01中無明細的行，刪除dw_cf02中空行，刪除dw_cf01中無明細的行
update dw_sfmx,dw_yj01,dw_yj02,dw_cf01,dw_cf02
累加發票號碼
wf_create_fp 打印
數據窗口 D_mzxx,d_cf01,d_cf02,d_yj01,d_yj02,d_sfmx，d_uo_ypxx_yf_kcmx
引用表 Yk_ypbm,yk_typk,yf_kcmx,yk_ypcd,gy_ylsf,gy_sfxm,gy_ygdm,gy_zfbl,gy_fyjy,gy_fybm,gy_ypjy等
操作表 Ms_mzxx,ms_sfmx,ms_cf01,ms_cf02,ms_yj01,ms_yj02,ms_ygpj
編制 鐘華 日期 2000．05．16
塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 發票作廢 編號 5．22
功
能
描
述 1.數據窗口中列出未結帳的本操作員的作廢發票
2．雙擊：調用取消作廢按鈕
3．作廢按鈕：彈出輸入框，輸入發票，顯示發票內容框，此時可顯示發票內容或作廢該發票
4.作廢發票時必須：未作廢該發票中項目未執行該發票中處方未發藥
該發票未退費，若已退費，則只能做全退處理
5．取消作廢：顯示發票內容框，可進行取消處理。
程
序
描
述 1.dw_1中列出ms_zffp中jzrq為空的本操作員的發票
2．取消作廢
取消作廢描述：
判斷病人是否有帳戶gf_checkaccount(id)，該病人有帳戶，則gf_readaccount(id)，并寫病人帳戶gf_writeaccount(id,brzh)
ms_mzxx,ms_yj01,ms_cf01中，set ZFPB=0
刪除 MS_ZFFP的相關記錄
3. 作廢按鈕：
作廢操作描述：
若mzxx中qtje<>0,則需進行帳戶操作
ms_mzxx,ms_yj01,ms_cf01中，set zfpb = 1
在ms_zffp中加入該發票
4．單據按鈕：打開w_djcx窗口由發票號碼檢索出發票信息
數據窗口 d_zffp,d_fpnr，d_list，d_cf02_copy，d_yj01_copy
引用表 ms_cf02,ms_yj02等
操作表 ms_mzxx,ms_cf01,ms_yj01,ms_zffp
編制 鐘華 日期 2000．05．16
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 退費處理 編號 5.23
功
能
描
述 1.輸入需退費發票號碼后在費用窗口中顯示所有可退費用，在藥品窗口中顯示所有可退藥品及藥房的退藥情況
2．輸入退費數量
3．執行退費即結算
程
序
描
述 a) 輸入的發票號碼從MS_MZXX中取出該發票記錄，要求
該發票號未作廢 無退費發票和該發票相關聯
尚未日結,才能進行重打作費發票操作 未發藥，未執行
b) 根據退費發票號碼查原始發票號碼wf_get_first_fphm(tffphm)，并根據原始發票號碼得到發票內容wf_get_fpnr_via_fphm(fphm)
c) dw_list中列出處方單，dw_cf01、dw_cf01_save、dw_cf02、dw_cf02_save中列出處方情況,dw_yj02,dw_yj02_save,dw_yj01,dw_yj01_save中列出費用情況，dw_sfmx, dw_sfmx_total中列出收費情況
d) 點擊dw_list,調用wf_display(djlx, sbxh)切換單據
e) dw_mzxx中列出該發票抬頭情況
根據退藥情況填中dw_cf02中退藥數量(若某處方的cfgl關聯到屬于發票is_fphm 的處方(cfsb),則該處方為有關的退藥處方)
根據退藥情況填dw_yj02中退費數量(若某醫技單的yjgl關聯到屬于發票is_fphm 的醫技單(yjxh),則該醫技單為有關的退費單)
f) 對存儲準備wf_save_prepare()的說明
保存數據使用的各項數據窗口的初始化wf_save_reset()
取原始發票的收費明細dw_sfmx_total.retrieve(fphm)
從原始發票的收費明細中扣除已退費部分的費用明細，剩余部分為進行該次退費操作前費用明細wf_cacl_sfmx_ytf()
拷貝使dw_sfmx,dw_sfmx_total中保存的收費明細均為進行該次退費操作前費用明細dw_sfmx_total.rowscopy（）
從dw_sfmx_total中扣除該次退費的各項收費明細wf_cacl_sfmx_tf()
準備dw_mzxx的數據wf_prepare_mzxx("tf")并
產生dw_sfmx(用于保存的datawindow) wf_save_prepare_print()
g) w_tfcl_js的說明：
根據精度調整dw_sfmx中的zfje和zjje并取現金、支票、帳戶和其它應收
用wf_save保存單據
dw_cf01_save.update()、dw_cf02_save.update()、dw_yj01_save.update()
dw_yj02_save.update()、dw_mzxx.update()、dw_sfmx.update()
update MS_MZXX set THPB = 1
update MS_CF01 set ZFPB = 1（sybz = 1 and fybz = 0）
update MS_CF01 set FPHM = :ls_fphm（sybz = 1 and fybz = 3）
update MS_YJ01 set ZFPB = 1(sybz = 1)
累加發票號碼uo_ygpjgl.add_one(new fphm)
更新員工票據庫的使用號碼uo_ygpjgl. update_fphm(fphm)
更新藥房錄入的退藥單,填發票號碼
w_tfcl.wf_create_fp()生成發票信息并打印
數據窗口 d_mzxx,d_sfmx, d_ms_cf01_tf，d_ms_yj01_tf，d_ms_cf02_tf，d_ms_yj02_tf
d_uo_yj02_ms_yj02，d_uo_sfmx_ms_sfmx，d_uo_cf02_ms_cf02，d_uo_yj01_ms_yj01
d_uo_cf01_ms_cf01
引用表 Ms_cf02，ms_yj02等
操作表 Ms_mzxx,ms_sfmx,ms_cf01,ms_yj01,ms_yj02，ms_cf02
編制 鐘華 日期 2000．05．16
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 操作員收費日報表 編號 5.24
功
能
描
述 1． 根據參數設置收費日報模式
2． 產生按鈕用于產生當日收款日報
3．結帳按鈕用于保存當日收款日報，結帳時時間為結帳日期
4．查詢按鈕用于查詢某一結帳日期的收款日報
5．明細按鈕用于查詢和該日報有關的收費明細
程
序
描
述 1． 收費日報模式:1為open(w_skrb_sfxm)—d_skrb_fylb ；2 為open(w_skrb_brxz) —d_skrb_brxz
2． 該模塊中以結帳日期(jzrq)區分每一次結帳，無結帳日期則表示未結帳
該結帳日期用于ms_mzxx及ms_zffp兩個表中
3． 表中的各費用項目及現金金額，支票金額，帳戶金額(即ms_mzxx中的qtje)
均為全部的某項金額減去相應的作廢發票金額
4． 其它應收款=收入合計-現金金額-支票金額-帳戶金額
5． 作廢發票序列為ms_zffp庫中各發票號碼
6． 退票為做過退費處理的發票序列
7． 產生操作說明：
計算按費用分類的收費情況wf_cacl_sfxm(dw_1)
計算按病人性質分類的收費情況wf_cacl_brxz(dw_1)
產生使用發票序列wf_cacl_fpxl()
產生作廢發票序列,張數,作廢發票總金額wf_proc_zffpxl()
產生退費發票序列,張數,退費發票總金額wf_proc_tffpxl()
取今日各項合計金額wf_cacl_hjje()
計算按費用類別分類的收費情況wf_cacl_sfxm(dw_2)
計算按收費項目的收費情況wf_cacl_brxz(dw_2)
8. 查詢操作說明：open(w_rbrq)選擇某一次日報
調用wf_cx("d_rbcx_brxz") or wf_cx("d_rbcx_sfxm")
8． 結帳操作說明：
寫匯總日報表wf_write_hzrb(ldt_jzrq)
寫性質明細表(MS_XZMX) wf_write_xzmx(dw_1,ldt_jzrq)
寫日報明細表(MS_XZMX) wf_write_rbmx(dw_1,ldt_jzrq)
ms_rbmx 在該表中記錄每一費用類別的費用(sfxm實際為fylb
寫門診收費表及發票作廢表中的結帳日期wf_write_jzrq(ldt_jzrq)
在ms_mzxx及ms_zffp中將該操作員的為結帳的記錄寫入結帳日期
數據窗口 d_skrb_fylb、d_skrb_brxz
引用表 Ms_sfmx等
操作表 Ms_mzxx,ms_zffp,ms_hzrb,ms_rbmx
編制 鐘華 日期 2000．05．16
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 門診收費匯總日報表 編號 5.25
功
能
描
述 1．該表為各收費員所收費用按費用類別分類的表(已做過收款日報)
2．產生按鈕用于將未匯總的收款日報按收款員匯總顯示
3．結帳按鈕用于作匯總，寫入匯總日期
查詢按鈕用于將匯總日期在給定日期段的匯總日報匯總顯示
程
序
描
述 掛號收費匯總dw_hzrb、項目分類匯總dw_xmhz
A．產生
1． 按收款員進行掛號匯總MS_GHMX
2． 按收款員進行退號匯總MS_THMX
3． 填入掛號日報信息：現金、帳戶、其他應收
4． 減去退號部分
5． 計算掛號作廢和掛號退號數
6． 計算作廢發票和退費發票數
B．查詢
根據日期檢索數據，方法與產生相同
C．結帳
更新匯總日報update MS_HZRB set HZRQ
更新掛號明細UPDATE MS_GHMX SET HZRQ
更新退號明細UPDATE MS_THMX SET HZRQ
更新門診信息UPDATE MS_MZXX SET HZRQ
更新作廢發票UPDATE MS_ZFFP SET HZRQ
ms_hzrb中的HZRQ為該收款日報是否做過匯總的標記
結帳操作即是將ms_hzrb中的HZRQ寫入匯總的日期，若該日期為空，
表示未做過匯總
根據日期檢索數據，方法與產生相同
數據窗口 d_mz_xmhz、d_mz_hzrb
引用表 Ms_sfmx等
操作表 Ms_mzxx,ms_zffp,ms_hzrb,ms_rbmx
編制 鐘華 日期 2000．05．16
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 病人性質報表 編號 5.31
功
能
描
述 1．當選擇的病人性質有下級性質時，產生按其下級性質歸并的報表
2．當選擇的病人性質無下級性質時
當方式為明細時：產生該性質病人的每次明細的報表
當方式為匯總時：產生該按該性質病人匯總的報表
程
序
描
述 見5.7 病人單位性質報表
數據窗口 d_mz_brfy_1（明細）d_mz_brfy_2（匯總）
引用表 Gy_brxz,gy_fydw,ms_mzxx,ms_sfmx
操作表
編制 鐘華 日期 2000．05．17
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 病人性質單位報表 編號 5.32
功
能
描
述 1．當選擇的病人性質有下級性質且需考慮其下級性質時，產生按其下級性質歸并的報表
2．當選擇的病人性質無下級性質或有下級性質但不需考慮其下級性質時
當方式為明細時：產生該性質病人的每次明細的報表
當方式為匯總時：產生該按該性質病人匯總的報表
3．當選擇的病人性質有所屬單位時，產生按所屬單位匯總的報表
4．當選擇的為單位時
當方式為明細時：產生該單位病人的每次明細的報表
當方式為匯總時：產生該按該單位病人匯總的報表
程
序
描
述 1． 報表窗口由w_bbfather窗口繼承
2． 在cb_2.clicked中，if為葉結點 and if為明細報表，則is_data = "d_mz_dwfy_1"，否則為"d_mz_dwfy_2",if 非葉結點,則is_data = "d_mz_dwfy"
3． 初始化wf_initial():明細wf_brdw_mx()；匯總wf_brdw_hz()；根結點wf_brxz()
方法：將報表字段放入報表表頭結構數組s_reportcol中
(colname, colcode, colleen, colgroup, coldata, coltype, coldatatype)
coltype 類型(1.信息,2.數據)； coldatatype類型(1-string 2-number 3-date)
4． 將'd_xmgb'中紀錄整理到結構中，gf_getreportcolparm(報表編號,結構, 是否分組, 是否分組合計, 開始列, 長度),設置colgroup項
5． 將報表首尾部分放入報表名稱,臺頭,附注結構s_reporttabel中，(title1,title2,title3,title4,footer1,footer2,printp)，其中，title1為報表標題，title2為報表副題(此處寫病人單位)，title3為報表日期，title4為報表注(此處為‘單位:元’)，footer1，footer2為腳注，printp為是否打印頁號(T.是,F.否)
6． 將報表性質部分放入報表中行字段,列字段,值字段,數據源以及字體結構s_reporttablesys中(rowfield, rowtype, colfield, valfield, datastore,
tfont,hfont, dfont, colcount)
7． uo_1.initial(s_reportcol [],s_reporttabel [],s_reporttablesys [])
8． w_bbfather控件說明：
Œ cb_2 根據類型選擇il_selecttype
s_exchange.longparm[1] = 1 可選全部
s_exchange.longparm[2] = 2 門診性質 =1 全部性質
1為科室，打開w_ksdm_sele；2為全部病人性質，4為門診病人性質，5為住院病人性質，打開w_brxz_sele；3為全部單位性質，6為門診單位性質，7為住院單位性質，打開w_fydw_sele。
uo_1 繼承于 vu_reportcomp
Žcb_tj 進行統計
在wf_getdata()中設置存儲過程，DataObject = is_data，并取數據
wf_refreshdata(時間)，更新uo_1控件數據
打印調用uo_1.printreport()
9． Vu_reportcomp說明：
Œ數據窗口為dw_reportdisp(d_reportbbsign) 欄調整調用uf_column()
結構s_reportpage（zls總列數，xxl信息列數，sjl 數據列數，fy分頁數，
fyl分頁列數，zys 總頁數）其它結構已在上面說明。
Žgetrowval() 取得當前行唯一標示值
initial(stru_col[],stru_table[],stru_tablesys[])初始化表結構
printreport() 打印報表
數據窗口 d_reportsfxm（gy_sfxm）、d_reportxmgb(gy_xmgb)、
引用表 Gy_brxz,gy_fydw,ms_mzxx,ms_sfmx
操作表
編制 鐘華 日期 2000．05．17
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 掛號分科統計表 編號 5.33
功
能
描
述 按科室進行掛號統計
程
序
描
述 Dw_1掛號數據減去dw_2退號數據顯示結果在dw_1 中
數據窗口 d_gh_kshz, d_gh_kshz_th
引用表 MS_GHMX,MS_GHKS,MS_THMX
操作表
編制 鐘華 日期 2000．05．17
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 醫生掛號統計表 編號 5.34
功
能
描
述 按醫生進行掛號統計
程
序
描
述 Dw_1掛號數據減去dw_2退號數據顯示結果在dw_1 中
數據窗口 d_gh_yshz, d_gh_yshz_th
引用表 MS_GHMX,MS_GHKS,MS_THMX
操作表
編制 鐘華 日期 2000．05．17
模 塊 說 明 書
產品名稱 門診掛號收費系統 模塊名稱 科室醫生核算報表 編號 5.35
功
能
描
述 1．按開單科室，開單醫生，執行科室，執行醫生四種方式進行核算
2．可實現一次統計，多次查詢
程
序
描
述 1．選擇科室：若選擇開單is_data = "d_mz_kdks"，否則is_data = "d_mz_zxks"
選擇醫生：若選擇開單is_data = "d_mz_kdys"，否則is_data = "d_mz_zxys"
2．后臺統計：若該時間段內已做過統計,是否覆蓋，若覆蓋則
delete MS_MZMX、MS_MZHS、MS_YJMX、MS_YJHS表內S_MZMX.GZRQ >= :ldt_begin and MS_MZMX.GZRQ <= :ldt_end的記錄
Œwf_tj_mzhs(ldt_begin,ldt_end) 統計門診核算表
進行門診開單核算(填MS_MZHS表)dw_mzhs
處方統計d_mz_cftj_kdzs
扣除處方作廢d_mz_cftj_kdzs_zf
醫技統計d_mz_yjtj_kdzs
扣除醫技作廢d_mz_yjtj_kdzs_zf
wf_tj_mzmx(ldt_begin,ldt_end) 統計門診明細表dw_mzmx
進行門診開單核算wf_tj_je(dw_mzmx,"d_mz_cftj_kdje",adt_begin,adt_end)
進行門診作廢核算wf_tj_je(dw_mzmx,"d_mz_cftj_kdje_zf",adt_begin,adt_end)
進行醫技開單核算wf_tj_je(dw_mzmx,"d_mz_yjtj_kdje",adt_begin,adt_end)
進行醫技作廢核算wf_tj_je(dw_mzmx,"d_mz_yjtj_kdje_zf",adt_begin,adt_end)
Žwf_tj_yjhs(ldt_begin,ldt_end) 統計醫技(執行)核算表
進行門診執行核算(填MS_YJHS表) dw_yjhs
執行統計d_mz_yjtj_zxzs
wf_tj_yjmx(ldt_begin,ldt_end) 統計醫技(執行)明細表dw_yjmx
醫技執行金額核算wf_tj_je(dw_yjmx,"d_mz_yjtj_zxje",adt_begin,adt_end)
3.統計操作同病人性質單位報表
數據窗口 d_mz_kdks, d_mz_zxks,d_mz_kdys, d_mz_zxys,
d_mz_cftj_kdzs,d_mz_cftj_kdzs_zf, d_mz_yjtj_kdzs, d_mz_yjtj_kdzs_zf
d_mz_cftj_kdje, d_mz_cftj_kdje_zf, d_mz_yjtj_kdje, d_mz_yjtj_kdje_zf
d_mz_yjtj_zxzs, d_mz_yjtj_zxje
引用表 ms_mzxx,ms_sfmx,ms_cf01,ms_cf02,ms_yj01,ms_yj02
操作表 Ms_mzhs,ms_mzmx,ms_yjhs,ms_yjmx
編制 鐘華 日期 2000．05．17
三． 界面設計描述
界面名稱：病人檔案維護
界面圖示：
圖1
圖2
|
|
資源大�。�2.22 MB 
