大型医院管理系统源码详细设计说明书.住院

DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计 说明书 房屋状态说明书下载罗氏说明书下载焊机说明书下载罗氏说明书下载GGD说明书下载 第  1  页 本源码下载地址：http://vip.hur.cn/  DGTHIS2.2软件详细设计说明书 住院结算  1引言  1.1编写目的  1.2项目背景  1.3定义  1.4参考资料  2任务概述  2.1目标 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  2  页  2.2运行环境 硬件环境： l服务器：PII500/256M/10G l工作站：586以上机型、32M 以上内存、显示器 16 位增强色、600*800 像素 软件环境： l 网络操作系统： Windows Nt Server 4.0 以上 l 工作站操作系统：中文 Win95/中文 Win98/中文 Win Nt Workstation l 数据库系统： Ms SQL Server 6.5/Sysbase SQL Server 11 以上/DB2 l 网络 协议 离婚协议模板下载合伙人协议 下载渠道分销协议免费下载敬业协议下载授课协议下载 ： TCP/IP  3模块设计说明书 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 入院登记 功 能 描 述 对新入院病人进行基本信息登记，可以根据病案号码、门诊号码调入病人基本信息，公费病人可 以根据公费证号调入病人基本信息，并可调入预约病人进行入院登记，打印病历首页。根据系统参数 设置可以在入院登记时分配床位以及入院缴款处理。 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  3  页 IPO 过 程 描 述 1.取当前住院号码、病案号码 GetCode()，若住院号码必须等于住院号码，则住院号码不可编辑 并设置 zyhm=bahm。 2.取默认数据 CetDefault()，根据默认性质修改列属性 ModifyColumnPriperties()。 3.注册三码输入法 RegisterInputMethod()。 4.若 入 院 登 记 时 可以 录 入 预 缴款 ， 则 显 示缴款 数 据 窗 口 ， 并取 当 前 收 据号 码 gf_GetBillNunber(） ， 若操作员收据已用完或尚未申领， 则不能进行缴款处理， 但可进行入院 登记。 5.若录入病案号码或调用病人档案则用 Get_brda()写病人信息。 6.若录入门诊号码则用 Get_mzbr()写病人信息。 7.公费病人使用公费证号调用病人信息 Get_fybr()。 8.预约病人使用 Get_fybr()写病人信息。 9.若允许分配床位，则显示本科室所有空床。 10. 数据保存前校验 DataVerify() (1).病人性质不能为空，病人性质是否存在。若为公费病人，判断公费证号是否存在或当 前证号病人是否已入院。 (2).对于大保病人需判断以下内容： . 是否已录入身份证号。 . 是否已录入参保单位。 . 是否已录入凭证号码。 . 是否已录入社保号码。 . 是否已录入在职退休 (3).病人姓名不能为空。 (4).病人性别不能为空。 (5).判断病案号码、住院号码是否为空。 (6).判断病人科室是否为空。 (7).若录入床号判断床位是否存在，判断床位是否以使用，判断床位是否有性别限制。 (8).判断入院日期是否有效(入院日期不能大于今日日期)， 11. 数据保存 Save_New() (1).判断病案号码、住院号码是否已被使用 CodeUsed()，若已被使用则需重取号码 GetCode()。 (2).对于预约病人入院登记应在 ZY_YYBR 中写入入院日期及结果标志 JGBZ=1。 (3).保存病人档案 Save_Archives()。 (4).若分配床位，重新判断所分配床位是否已被其他病人使用，若以被使用则清空 ZY_BRRY 中 BRCH，否则进行床位分配 cwgl_cwfp()。 (5).若录入缴款则保存缴款记录，打印缴款收据。 12.下一病人入院登记 New()。 数 据 窗 口 d_zy_brxx_zybr d_zy_brxx_blsy d_zy_brxx_zybr_ryjk d_zy_brxx_zybr_yybr d_zy_brxx_zybr_ddbr d_zy_brxx_zybr_ddtj d_zy_brxx_zybr_kycw 引 用 表 ZY_BRDA ZY_YYBR 操 作 表 ZY_BRRY ZY_CWSY ZY_TBKK 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  4  页 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 预约登记 功 能 描 述 对预约病人进行基本信息登记，登记预约科室、预约日期。可以根据病案号码、门诊号码调入病 人基本信息，公费病人可以根据公费证号调入病人基本信息。 IPO 过 程 描 述 1.取默认数据 CetDefault()，根据默认性质修改列属性 ModifyColumnPriperties()。 2.注册三码输入法 RegisterInputMethod()。 3.若录入病案号码则用 Get_brda()写病人信息。 4.若录入门诊号码则用 Get_mzbr()写病人信息。 5.公费病人使用公费证号调用信息 Get_fybr()。 6.判断当前预约病人是否已入院或是否已预约， 7.数据保存前校验 DataVerify() (1).病人性质不能为空，病人性质是否存在。若为公费病人，判断公费证号是否存在或当 前证号病人是否已入院。 (2).对于大保病人需判断以下内容： . 是否已录入身份证号。 . 是否已录入参保单位。 . 是否已录入凭证号码。 . 是否已录入社保号码。 . 是否已录入在职退休 (3).病人姓名不能为空。 (4).病人性别不能为空。 (5).判断病案号码、住院号码是否为空。 (6).判断预约科室是否为空。 (8).判断预约入院日期是否有效(预约日期不能小于今日日期)， 8.数据保存 Save_New() 9.下一预约病人登记 New()。 数 据 窗 口 d_zy_brxx_yybr 引 用 表 操 作 表 ZY_YYBR 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  5  页 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 病人管理 功 能 描 述 1．病人费别转换 2．修改病人信息 3．注销病人入院 4．查看病人信息 5．查看病人费用 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  6  页 IPO 过 程 描 述 1.在病人选择列表的窗口中，选择病区或科室，列出所有的病人，可输入住院号或床位号来定位 欲选病人；点“刷新”可重新检索病人，选定一病人，可对其进行转换、注销、修改，并可查 看其信息及帐卡。 2.转换：OpenWithParm(w_zy_brxx_zybr,”转换”  + String(ll_zyh)) （出院证明病人、预结病人不能进行费别转换）Change_brxz() 费别转换只能修改病人性质，公费病人可以录入公费证号调出病人信息，对于大保病 人允许修改身份证号、工作单位、单位电话、单位邮编、凭证号码、社保号码、在职 退休、保险病种、担保人名、担保关系等。 (1).对于床位费： IF 床位费单价 > 新床位费限价 THEN ①.修改床位费单价、自负比例、总计金额、自负金额 ②.查找原来是否记过自负床位费。 IF 原来没有自负床位费 THEN 计算需插入自负床位费自负比例、费用单价、总计金额、自负金额 插入自负床位费 END IF ELSE 判断原来是否记过自负床位费，若记过则将其加到床位费中 END IF (2).对于自负床位费： IF 原限价 + 原单价 > 新限价 THEN 新单价 = 原限价 + 原单价 - 新限价 ELSE 删除本条自负床位费记录 END IF (3).对于其它费用直接修改自负比例、自负金额 2.修改：OpenWithParm(w_zy_brxx_zybr,”修改”  + String(ll_zyh)) 出院证明病人、预结病人不能修改病人信息 (1).初始设置： ①.判断是否允许修改病案号码。 ②.禁止修改门诊号码、病人性质、病人科室、病人床号。 ③.判断能否修改入院日期(已分配床位或做过结算不能修改入院日期) (2).数据保存：Save_Modify() ①.修改病案号码需进行病案号码转换 Change_bahm()，若修改的病案号码属于另 一病人，则对调病案号码。 IF 住院号码必须等于病案号码 THEN ZYHM = BAHM ELSE 修改住院号码需进行住院号码转换 Change_zyhm()，若修改的住院号码属 于另一病人，则对调住院号码。 END IF ②. 保存病人档案 Save_Archives() 4.注销：OpenWithParm(w_zy_brxx_zybr,”注销”  + String(ll_zyh)) （预结病人、已打出院证明病人不能注销） (1).判断是否可注销(已发生缴款、医嘱、费用不能进行注销) (2).注销处理：Save_Logout() ①.删除缴款记录 DELETE FROM ZY_TBKK WHERE ZYH = :il_Original_zyh ; ②.删除医嘱记录 DELETE FROM ZY_BQYZ WHERE ZYH = :il_Original_zyh ; ③.删除费用记录 DELETE FROM ZY_FYMX WHERE ZYH = :il_Original_zyh ; ④.删除换床记录 DELETE FROM ZY_HCMX WHERE ZYH = :il_Original_zyh ; DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  7  页 ⑤.删除诊断记录 DELETE FROM ZY_RYZD WHERE ZYH = :il_Original_zyh ; ⑥.删除药品过敏记录 DELETE FROM ZY_YPGM WHERE ZYH = :il_Original_zyh ; ⑦.清空病人床位 UPDATE ZY_CWSZ SET ZYH = NULL WHERE ZYH = :il_Original_zyh ; ⑧.删除住院记录 DELETE FROM ZY_BRRY WHERE ZYH = :il_Original_zyh ; ⑨.删除病人档案 5.首页：OpenWithParm(w_zy_brxx_zybr,”查询”  + String(ll_zyh)) 显示病人基本信息。 6.帐卡：OpenWithParm(w_zy_jsgl_fyzk,String(ll_zyh) + "~t0") 费用帐卡只显示病人未结算费用及缴款。 数 据 窗 口 d_zy_brgl d_zy_brgl_print d_zy_brxx_zybr d_zy_brxx_zybr_xzzh 引 用 表 操 作 表 ZY_BRRY ZY_BRDA ZY_TBKK ZY_BQYZ ZY_FYMX ZY_HCMX ZY_RYZD ZY_YPGM 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  8  页 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 床位管理 功 能 描 述 1、床位分配 2、转床处理 3、转科处理 4、包床处理 5、退床处理 6、使用统计 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  9  页 IPO 过 程 描 述 1.主画面中根据科室或病区列出所有床位，可选择列出“全部” 、 “空床”或“非空” ，并能够用 住院号或床位号对列表中的床位进行定位。点击“刷新”重新检索床位。 //****************************************************************************// // 换床类型(HCLX) 0.分床 1.转床 2.转科 3.借床 4.包床 5.退床 //****************************************************************************// 2.床位分配：OpenWithParm(w_zy_cwgl_cwfp,istr_cwxx) 主界面显示当前科室所有未分配床位病人，录入住院号码可进行病人定位。 uo_BedManage.cwgl_cwfp() (1).判断床位是否有性别限制 (2).锁定目标床位，判断目标床位是否已被其他病人使用 (3).将病人住院号写入 ZY_CWSZ 中，将床号、病区写入 ZY_BRRY 中，若第一次分配床位，将 入院日期写入到 ZY_BRRY.KSRQ 中。 (4).插入换床记录 InsertHCMX() 3.转床处理：OpenWithParm(w_zy_cwgl_zccl,istr_cwxx) 主界面显示当前科室所有床位，若选中“转到空床”则只显示空床，录入床位号码可进行床 位定位。 uo_BedManage.cwgl_zccl() (1).判断新床位是否已有病人 (2).判断所转床位是否为其他病人包床，所转床位上的病人科室是否符合所转科室 (3).确定换床类型 (4).判断是否有未发药医嘱 (5).锁定原床位、新床位，判断床位是否已发生变化 (6).锁定原床位、新床位，判断床位是否已发生变化 将病人住院号写入 ZY_CWSZ 中，将床号、病区、科室写入 ZY_BRRY 中 IF 床位对调 THEN 将对调病人住院号写入 ZY_CWSZ 中，将床号、病区、科室写入 ZY_BRRY 中 ELSE 转到空床，将原床位清空 END IF (7).若为借床则将病人医嘱转移到新病区 (8).插入换床记录 InsertHCMX() 4.包床处理：OpenWithParm(w_zy_cwgl_bccl,istr_cwxx) 主界面显示当前科室所有空床，录入床位号码可进行床位定位。 uo_BedManage.cwgl_bccl() 床位已被其他病人使用不能包床；基本处理同“床位分配” ，无需更新 ZY_BRRY 中的病人信息。 5.退床处理：OpenWithParm(w_zy_cwgl_tccl,istr_cwxx) 主界面显示当前病人所有包床，录入床位号码可进行床位定位。 uo_BedManage.cwgl_tccl() (1).判断是否主床(不能退主床) (2).锁定目标床位, 判断目标床位是否已被其他操作员退掉 (3).清空床位 UPDATE ZY_CWSZ SET ZYH = NULL WHERE BRCH = :as_cwhm ; (4). 插入换床记录 InsertHCMX() 6.使用统计：Open(w_zy_cwgl_sytj) (1).历史：wf_Filter()后 Retrieve() (2).今日：wf_Filter()后 uo_BedManage.cwsy_cx() DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  10  页 数 据 窗 口 d_zy_cwgl d_zy_cwgl_print d_zy_cwgl_brxx d_zy_cwgl_cwxx d_zy_cwgl_wcbr d_zy_cwgl_kzcw d_zy_cwgl_kbcw d_zy_cwgl_ktcw d_zy_cwgl_sytj_jr d_zy_cwgl_sytj_ls 引 用 表 操 作 表 ZY_BRRY ZY_CWSZ ZY_HCMX ZY_CWSY 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 预约管理 功 能 描 述 1．修改预约病人 2．注销预约登记 3．查看预约病人 IPO 过 程 描 述 1.在病人选择列表的窗口中，选择预约科室，列出所有未入院预约病人病人，输入病案号码可 定位病人；点“刷新”可重新检索预约病人，选定一病人，可对其进行注销、修改，并可查 看其信息。 2.修改：OpenWithParm(w_zy_brxx_yybr,”修改”  + String(ll_sbxh)) Save_Modify() 2.注销：OpenWithParm(w_zy_brxx_yybr,”注销”  + String(ll_sbxh)) Save_Logout() UPDATE ZY_YYBR SET JGBZ = 2 WHERE SBXH = :il_Original_sbxh ; 数 据 窗 口 d_zy_yygl d_zy_yygl_print d_zy_brxx_yybr 引 用 表 操 作 表 ZY_YYBR 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  11  页 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 缴款管理 功 能 描 述 1.缴款输入、打印 2.在“缴款处理”界面的输入窗口中输入一笔缴款记录，则列表中将多出一笔新的缴款记录； 3.对于输入的缴款记录可以“注销”作废； 4.可用收据号或住院号定位列表中的缴款记录 5.在“缴款查询”界面中可根据缴款日期、方式，收款工号，病人科室及住院号码查询病人缴 款记录，可随时刷新，也可以打印出来。 IPO 过 程 描 述 一、缴款处理 1.取优先号码类型：gf_GetPara(base_info.SysCode,& "YXHMLX","1","优先号码类型: 1.床位号码 2.住院号码") 若床号优先则光标自动定位到床位号码，否则定位到住院号码。 3.取票据使用方式：gf_GetPara(base_info.SysCode,"PJSYFS","1","票据使用方式") 4.根据票据使用方式取收据号码：gf_zy_GetBillNumber()，若操作员尚未申领收据或收据已用 完则不能进行缴款处理。 4.预缴款输入：先根据住院号码或床位号取病人信息，录入缴款金额则显示大写金额，若缴款 方式为支票则必须录入支票号码。 5.预缴款保存： (1).先非空判别，住院号码不能为空、非支票方式金额不能为空(0)并且缴款方式不 能为空、支票方式支票号码不能为空。 (2).对于公用票据需重取收据号码，以防止号码重复。 (3).CurrentDW.Update() (4).收据号码加一 gf_zy_SetBillNumber() (5).预缴医药费收据打印、重取票据号码准备输入下一张。 6.预缴款注销： UPDATE ZY_TBKK SET ZFPB = 1 WHERE ZYH = :ll_zyh AND JKRQ = :ld_jkrq ; 二、缴款查询 1.根据查询条件获取 WhereClause，若录入住院号码则操作工号、科室条件不能使用。 2.修改 SQLSelect：gf_ModifySQLSelect() 3.Retrieve() 数 据 窗 口 d_zy_jkgl_jkcx d_zy_jkgl_jkjl d_zy_jkgl_jksj d_zy_jkgl_jksr 引 用 表 GY_KSDM GY_DMZD ZY_BRRY SS_OPERATE_USER GY_XTCS 操 作 表 ZY_TBKK ZY_YGPJ 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  12  页 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 费用记帐 功 能 描 述 提供多种记帐方式： 1.按病人记：下一笔费用默认住院号码为上一计费病人； 2.按费用记：下一笔费用默认费用编号为上一计费费用； 3.批量记帐：可对多个病人同时进行费用记帐，最多可同时记五种费用，记帐病人可自由选择。 4.记帐查询：可对某一日期范围、某一员工、某一科室或某一病人的费用记帐情况进行查询， 列出明细清单，并可打印出来。 IPO 过 程 描 述 1.取系统参数判断是否需要提示欠费信息 gf_GetPara(base_info.SysCode,"TSQFXX","1", "费用录入时提示病人欠费信息") 2.未分配床位病人不能进行费用记帐。 3.按病人记帐、按费用记帐： (1).录入住院号码或病人床号调出病人信息 (2).录入费用，取费用单价，确定费用科室 录入药品，根据药品产地取药品单价、确定药品归属项目 取自负比例 gf_zy_GetZFBL() (3).若需提示欠费且费用数量大于零则判断病人是否欠费 SELECT sum(ZFJE) INTO :lc_zfhj FROM ZY_FYMX WHERE ZYH = :lstr_fymx.zyh AND JSCS = 0 ; SELECT sum(JKJE) INTO :lc_jkhj FROM ZY_TBKK WHERE ZYH = :lstr_fymx.zyh AND JSCS = 0 AND JKFS < 9 ; lc_zfhj = lc_zfhj + Round(lstr_fymx.fysl * lstr_fymx.fydj * lstr_fymx.zfbl,2) IF lc_zfhj > lc_jkhj THEN 提示病人已欠费，询问是否记帐? END IF (4).保存记帐记录 gf_InsertFYMX() (5).下一条记帐 wf_New() 4.批量记帐： (1).检索所有在院病人(未分配床位除外) (2).选择科室显示本科室所有病人双击右上或右下数据窗口可以选择病人是否记帐。 (3).双击左边费用项目列表选择记费项目，选定的费用自动显示在右边数据窗口 wf_ModifyColumns() (4).修改左边已选定费用单价则自动调整右边数据窗口记帐费用单价默认值 (5).个别调整右边数据窗口中记帐病人费用单价后点击“记帐”即可进行批量记帐。 (6).批量记帐数据保存(按病人提交)： 根据记帐病人数量计算记录序号(ROWID)数量，申请记录号 判断当前病人是否已记帐 IF 已记帐 THEN CONTINUE ELSE gf_InsertFYMX() IF 记帐成功 THEN 打上记帐成功标志 END IF DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  13  页 5.记帐查询 (1).根据查询条件获取 WhereClause，若录入住院号码则操作工号、科室条件不能使用。 (2).修改 SQLSelect：gf_ModifySQLSelect() (3).Retrieve() 数 据 窗 口 d_zy_fyjz_axmj d_zy_fyjz_abrj d_zy_fyjz_fyxm d_zy_fyjz_jzjl d_zy_fyjz_jzcx d_zy_fyjz_pljz 引 用 表 ZY_BRRY GY_KSDM GY_BRXZ GY_YLSF 操 作 表 ZY_FYMX 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 结算管理 功 能 描 述 处理各种类型的结算，包括：中途结算、出院预结、出院结算、出院终结、合并结算、退费结算、 发票作废。 处理各种有关结算的查询。 提供病人费用帐卡(未结算)。 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  14  页 IPO 过 程 描 述 一、窗口打开时初始化 1.判断是否需要调整 Mdi 工作区大小，由于 w_zy_jslg_fyzk 是从该窗口继承的且类型为 Response，而该窗口类型为 Main，打开该窗口使用 OpenSheetWinthParm，而打开 w_zy_jsgl_fyzk 使用 OpenWithParm，所以需要判断窗口类型，以便使用不同的方式调整 窗口及 Mdi 工作区。 2.判断窗口打开时传递什么参数，根据所传参数确定 istr_jsxx(结算信息)中相应参数。 打开该窗口有三种方式： (1).传递结构 (2).传住院号和结算次数(用于查病人未结算费用) (3).只传住院号(用于查病人所有费用，此时将结算次数置为-1) 3.根据结算类型做相应处理： CHOOSE CASE 结算类型 CASE IS <= 0 // 查询 将按钮“调整” 、 “结算” 、 “选择”置为不可视 修改窗口标题 CASE IS > 0 // 结算处理、发票作废 IF 结算类型 < 10 THEN // 结算 (1).取票据使用方式 (2).判断是否需要出院证明 (3).判断是否自动调整费用 END IF 再结、终结、出院、合并需要判断是否自动调整费用 判断是否为连续结算 IF istr_jsxx.zyh > 0 THEN 指定病人，结算完后关闭窗口，不需连续结算 ELSE 未指定病人，打开结算选择窗口，选择结算类型及病人进行连续结算 END IF END CHOOSE 二、检索病人信息 dw_1.Retrieve(istr_jsxx.zyh) 1.将当前病人信息保存到 istr_jsxx 中 wf_SaveInfo() 2.写入结算类型，对于合并结算写入合并病人信息 3.写入系统日期、终止日期，dw_1 根据系统日期、入院日期、出院日期计算住院天数 dw_1 根据结算类型、出院判别显示不同的日期(jslx=0 显示出院日期其它显示结算日期) 当 jslx=0 and cypb<8 时将日期文本改为背景色(灰色): 此项控制放在 Expressions 属 性中 4.将当前病人加锁，防止其他用户对该病人记帐或结算 wf_Lock() 5.根据结算类型确定结算次数 CHOOSE CASE istr_jsxx.jslx CASE IS < 0 // 结算查询 CASE 0 // 查询未结数据或全部数据 CASE 1 TO 6 // 中结、预结、再结、终结、出院、合并，将结算次数置零 istr_jsxx.jscs = 0 CASE 9 // 退费结算应取病人最后一次非退费结算次数 CASE 11,IS > 12 // 取消中结、取消再结、取消终结、取消出院、取消合并 CASE 12 // 取消预结、将结算次数置零 istr_jsxx.jscs = 0 END CHOOSE DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  15  页 6.对于再结(3)、终结(4)、出院(5)、合并(6)判断是否需要调整累加费用 7.计算缴款金额合计 wf_Calculate_jkhj() 8.对于已汇总病人做退费结算应将其明细费用从 ZY_FYMX_CY 中转回到 ZY_FYMX 中 wf_RestoreFee() 9.根据结算类型及汇总日期确定费用明细表名、切换数据窗口对象，并获取病人费用检索 条件 wf_GetWhereClause() 10.修改费用检索条件 gf_ModifySQLSelect() 三、检索费用信息 dw_2.Retrieve() 1.费用项目分两组重新排序 gf_zy_SortForMultiGroups() 2.将按钮设置为可以使用 wf_EnableButton(True) 3.根据结算类型修改结算处理按钮文本 4.取费用合计、自负合计 5.大保病人计算大保自负费用，并将其加入到自负合计金额中 uo_bxgl.Getbxfy() 6.写入费用合计、自负合计及费用合计大写金额 7.对于查询病人所有费用(jslx=0 and jscs<>0 and scjs>0)或退费结算(jslx=9)，将病人 已结算金额写入到缴款合计显示值中，但不修改 istr_jsxx.jkhj，并且当打开缴款记录 窗口后应将病人已结算金额插入到缴款记录中，以保证两边数据一致。 8.若自负合计和缴款合计为零则不能进行结算处理， 对于退费结算若:(自负合计 = 缴款合计 + 结算金额)则不能进行退费处理 四、结算处理 1.中结(1)、再结(3)、终结(4)、出院(5)、合并(6)、退费(9) 打开结算处理窗口 OpenWithParm(w_zy_jsgl_jscl,istr_jsxx) (1).对于非终结取发票号码 gf_zy_GetBillNumber() (2).检索病人缴款，对于中途结算允许选择缴款进行结算 (3).根据自负合计、缴款合计计算应收应找金额 (4).若已输入支票金额则必须输入支票号码，取系统日期作为结算日期 (5).写入结算日期、结算金额、支票号码 (6).对于中途结算判断是否有转存缴款 (7).票据公用方式重取发票号码 (8).若有转存缴款则保存，并将收据号码加一 gf_zy_SetBillNumber() (9).保存结算数据，将发票号码加一 gf_zy_SetBillNumber() (10).将 ZY_TBKK， ZY_FYMX 打上结算次数 (11).写结算明细(ZY_JSMX) (12).将 ZY_BRRY 打上结算标记，并将其置为非结算状态(修改判别 XGPB=0)对于非中途 结算病人出院判别均为 8(终结 9)，由于中途结算病人原出院判别为 0，仍然为 0 (13).对于出院结算清空病人床位 2.出院预结(2) wf_jscl_cyyj() (1).若未打上出院日期，则打上出院日期 (2).清空病人床位 3.发票作废 wf_jscl_fpzf() (1).将结算发票作废 (2).清除 ZY_FYMX 中结算次数 (3).删除结算明细 ZY_JSMX (4).清除 ZY_TBKK、ZY_HCMX 中结算次数 (5).将此次结算的开始日期写入 ZY_BRRY.JSRQ 作为上次结算的截止日期 (6).根据取消的结算类型修改出院判别、出院日期 (7).判断是否需要恢复其床位 wf_RestoreBed() DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  16  页 4.取消预结 wf_jscl_qxyj() (1).修改出院判别标志、出院日期，若预结前已打上出院证明(cypb=1)，则取消预结后 应保持出院证明状态，否则为在院状态(cypb=0)，并清空出院日期 (2).恢复病人床位 wf_RestoreBed() 五、点击“选择”按钮选择结算类型、结算病人 1.将已加锁而未做结算的病人开锁 wf_UnLock() 2.清空数据窗口中数据、设置按钮不可使用 wf_EnableButton(False) 3.打开结算选择窗口(w_zy_jsgl_jsxz)并传递当前结算病人信息，当其打开时自动切换到 当前结算类型 (1).自动切换到上次所做结算类型，若结算类型为零则设置为默认类型:出院结算 (2).由于选择合并病人窗口(w_zy_jsgl_jsxz_hbbr)是从该窗口继承的，并共用所有代 码，因此当结算类型为合并结算时打开该窗口与打开窗口 w_zy_jsgl_jsxz_hbbr 应 有所区别。由于选择合并病人前必须先确定结算病人即 istr_jsxx.zyh > 0，所以 根据 istr_jsxx.zyh 是否大于 0可以判断当前打开的窗口是否为 w_zy_jsgl_jsxz_hbbr (3).修改检索条件 wf_ModifySQLSelect() CHOOSE CASE ai_jslx CASE 1 /* 中途结算 */ 只适合非大病保险在院病人 CYPB = 0 AND 病人性质为非大保 CASE 2 /* 出院预结 */ 适合在院病人(不要证明) CYPB < 2、已开出院证明病人 CYPB = 1 CASE 3 /* 预结再结 */ 同出院结算 5 CASE 4 /* 出院终结 */ 只适合预结病人 CYPB=2 CASE 5 /* 出院结算 */ 适合在院病人(不要证明)CYPB<3 已开出院证明病人、预结病人 CYPB > 0 AND CYPB < 3 如果选择的病人为预结病人再将结算类型改为 3(预结后再结算) CASE 6 /* 合并结算 */ 同出院预结 2 CASE 9 /* 退费结算 */ 适合预结后再结算病人和正常出院病人(CYPB=8) CASE 12 /* 取消预结 */ 只适合未汇总预结病人 CYPB = 2 AND JZRQ IS NULL CASE ELSE /* 发票作废 */ ZY_ZYJS.CZGH = 操作工号 AND 未结帐 END CHOOSE (4).对于合并结算打开合并病人选择窗口选择合并病人 病人性质不同不能合并结算 (5).关闭窗口，将结算信息传给结算主窗口 4.若选定病人则检索病人信息 dw_1.Post Retrieve() 六、点击“病人” 、 “换床” 、 “缴款” 、 “发票” 、 “清单” 、 “保险”按钮分别打开相应窗口显示病 人明细信息 1.病人信息：OpenWithParm(w_zy_brxx_zybr,"查询" + String(istr_jsxx.zyh)) 2.换床记录：OpenWithParm(w_zy_jsgl_hcjl,istr_jsxx) 3.缴款记录：OpenWithParm(w_zy_jsgl_jkjl,istr_jsxx) (1).取检索条件 gf_zy_GetWhereClause() (2).修改 SQLSelect：gf_ModifySQLSelect() (3).对于查询病人所有费用(jslx=0 and jscs<>0 and scjs>0)或退费结算(jslx=9)将病 人已结算金额插入到缴款记录中 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  17  页 4.结算发票：OpenWithParm(w_zy_jsgl_jsfp,lstr_ExChange) 5.费用清单：OpenWithParm(w_zy_jsgl_fyqd,istr_jsxx) (1).取检索条件 IF 按费用日期检索 THEN 病人费用只与费用日期有关 对于合并结算或退费前为合并结算应取合并病人费用 ELSE gf_zy_GetWhereClause() END IF (2).修改 SQLSelect：gf_ModifySQLSelect() (3).检索费用 (4).将费用日期中时间部分截去 (5).根据费用类别进行过滤(全部、医疗、药品) (6).生成费用清单汇总格式 wf_Create_hz() (7).生成费用清单医嘱格式 wf_Create_yz() 6.保险清单：OpenWithParm(w_zy_jsgl_dbqd,istr_jsxx)(只有保险病人才有该功能) (1).根据结算信息取检索病人费用条件 gf_zy_GetWhereClause() (2).修改 SQLSelect：gf_ModifySQLSelect() (3).检索费用 (4).将费用写入保险清单中，并根据保险费用分级拨付表计算病人应自负金额及可申请 社会统筹基金拨付金额 数 据 窗 口 d_zy_jsgl_dbfy d_zy_jsgl_dbfy_cy d_zy_jsgl_dbfy d_zy_jsgl_dbqd d_zy_jsgl_dbqd_print d_zy_jsgl_fyqd_hz d_zy_jsgl_fyqd_mx d_zy_jsgl_fyqd_mx_cy d_zy_jsgl_fyqd_yz d_zy_jsgl_hcjl d_zy_jsgl_jkjl d_zy_jsgl_jsbr d_zy_jsgl_jscl_jsfp d_zy_jsgl_jscl_jsjk d_zy_jsgl_jsfp d_zy_jsgl_jsfy d_zy_jsgl_jsfy_cy d_zy_jsgl_jsfy_jsjs d_zy_jsgl_jsxz_brqd d_zy_jsgl_jsxz_jsbr d_zy_jsgl_jsxz_jsjl d_zy_jsgl_mxfy d_zy_jsgl_mxfy_cy d_zy_jsgl_mxxm d_zy_jsgl_mxxm_cy 引 用 表 ZY_HCMX GY_KSDM GY_SFXM GY_DMZD GY_BRXZ GY_YLSF ZY_DBXM ZY_DBBX 操 作 表 ZY_ZYJS ZY_JSMX ZY_FYMX ZY_BRRY ZY_TBKK ZY_CWSZ 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  18  页 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 催款处理 功 能 描 述 根据所设置的催款比例、 催款金额按科室或按病区检索符合条件的催款病人生成欠费病人清单及 催款通知单。催款通知单分两种格式：一行一张、一行两张。 打印欠费清单及催款单。 IPO 过 程 描 述 1.根据窗口打开时所传参数确定是否为病区催款，若传递病区代码，则只能对本病区进行催款， 否则可按科室或病区催款。 2.检索当前科室或病区病人及其费用清单。 3.检索当前科室或病区病人缴款记录。 4.写系统日期，正病人年龄及住院天数，写催缴金额。 5.删除有空白支票的病人。 6.写入缴款金额。 7.计算欠费金额、催款金额。 欠费金额 = 自负金额 - 缴款金额 催款金额 = 自负金额 / 催款比例 - 缴款合计 (催款比例 <= 10) 催款金额 = 自负金额 + 催款比例 * 催款折扣 - 缴款金额 (催款比例 > 10) 8.过滤非催款病人 IF 催款折扣 > 0 THEN This.SetFilter( 催款金额 > 0 ) ELSE This.SetFilter( 催款金额 > 0 OR (催款金额 < 0 AND Abs(催款金额) > 催款比例) ) END IF 数 据 窗 口 d_zy_ckgl_ckqd_one d_zy_ckgl_ckqd_two d_zy_ckgl_jkje d_zy_ckgl_kbzp d_zy_ckgl_ksck d_zy_ckgl_qfqd 引 用 表 ZY_BRRY ZY_FYMX ZY_TBKK ZY_KSCK GY_KSDM GY_BRXZ 操 作 表 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  19  页 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 日终结帐 功 能 描 述 1.根据日期查询已做结帐日报数据，BSSA 操作员可以查看其它操作员结帐日报数据，若某日做 过多次结帐，则将多次结帐数据合并。 2.产生操作员本日结帐数据：缴款数据、结算数据，结束本日业务。 3.点击“明细” ，可查询本日结帐明细数据。 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  20  页 IPO 过 程 描 述 1.对于 BSSA 操作员，在 ddlb_1 中加入所有操作员，以便 BSSA 操作员可以查看其他操作员结帐 日报数据。非 BSSA操作员只能查看本人结帐日报数据。 2.结帐日报(一)数据产生：wf_Create_jzrb() (1).结帐日期说明：取系统当前日期时间作为本次结帐的日期和时间， 并将结帐日期和时间中的秒数固定为 30，以便当检索结帐数据时可以使用以下条件： . 检索某一天 JZRQ >= yyyy.mm.dd 00:00:00 AND JZRQ <= yyyy.mm.dd 23:59:59 . 检索某一次 JZRQ >= yyyy.mm.dd hh:mm:00 AND JZRQ <= yyyy.mm.dd hh:mm:59 (2).判断今日是否已做过结帐 wf_IsReckon()，清除数据窗口中数据，根据今日是否已做过 结帐显示不同结帐日期文本格式。 (3).产生结帐日报，若没有业务数据发生，根据今日是否已做过结帐显示不同提示信息。 (4).取结算发票数据 ids_jsfp.Retrieve() IF 结算类型 <> 4 THEN /* 非终结 */ 取起始发票、终止发票、发票张数 ELSE IF 作废发票 THEN 累加作废发票数量，保存作废发票号码 ELSE 取结算现金金额、支票金额、退预缴金并将其累加 退费结算将自负合计写入退票金额并累加退票数量，保存退票号码，否则写入出 院收入 支票金额不等于零累加支票张数 END IF END IF (5).取缴款收据数据 ids_jksj.Retrieve() IF NOT 作废收据 AND NOT 转存收据 THEN 取起始收据、终止收据、收据张数 END IF IF 作废收据 THEN 累加作废收据数量，保存作废收据号码 ELSE IF 空白支票 THEN 累加空白支票数量、金额 ELSEIF 现金 THEN 累加预缴现金金额 ELSE 累加预缴支票数量、金额 END IF END IF (6).取退预缴款收据张数(除去出院终结) (7).将结帐日报数据写入 tab_1.tabpage_1.dw_1 中 2.结帐日报(二)数据产生：wf_Create_jzsr() (1).计算借方金额： 将结帐收入中的应收现金、应收支票、退预缴金分别写入银行存款中的现金、支票及退 病人预缴款，现金+支票=银行存款，将 SUM(ZY_ZYJS.FYHJ ­ ZY_ZYJS.ZFHJ)计入“其 他医疗应收款” ， 并按病人性质列出明细应收金额，将“终结病人”SUM（ZFHJ）计入 “欠费金额” ； 借方合计  =  银行存款  +  退预缴金  +  应收合计  +  欠费合计 (2).计算贷方金额： DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  21  页 （2）.将 ZY_ZYJS 中的结算数据分别按医疗、药品及其它分别计算各项收入,并计算其明 细收入，将结帐收入中的“收预缴金”金额计入“预收医疗款”科目，现金计入 “现金” ，支票计入“支票” 。 贷方合计 = 费用合计 + 预缴合计 3.结帐处理： (1).保存结帐日报数据 (2).将作废发票(iws_pjxx[1])、作废收据(iws_pjxx[2])及退票号码(iws_pjxx[3])写入 ZY_ZFPJ (3).将结帐日期写入 ZY_ZYJS 数 据 窗 口 d_zy_jzgl_jsfy d_zy_jzgl_jsys d_zy_jzgl_rjcl_jsfp d_zy_jzgl_rjcl_jksj d_zy_jzgl_rjcl_zfpj d_zy_jzgl_rjcl_jzrb d_zy_jzgl_jdbb d_zy_jzgl_jkmx d_zy_jzgl_jsmx d_zy_jzgl_rbxz_jzrb 引 用 表 ZY_BRRY GY_BRXZ ZY_JSMX GY_SFXM SS_OPERATE_USER 操 作 表 ZY_JZXX ZY_TBKK ZY_ZYJS ZY_ZFPJ 编 制 孙烈峰 编制日期 6.15 审 核 审核日期 系统名称 住院结算管理系统 系统编号 6 模块编号 模块名称 日结汇总 功 能 描 述 1.根据日期查询汇总日报， 如果今日未做日报， 则提示是否产生汇总日报。 产生好日报后可点 “汇 总”按纽结帐。 2.点击“明细” ，可查询本日结帐病人明细。 DGT 国际软件(中国)有限公司  DGTHIS2.2 详细设计说明书 第  22  页 IPO 过 程 描 述 1.产生汇总日报(一)数据：直接检索操作员个人结帐数据(未汇总 HZRQ IS NULL)。 2.产生汇总日报(二)数据：wf_Create_hzsr() 处理同日终结帐产生结帐日报(二)数据 3.汇 总结 初级经济法重点总结下载党员个人总结TXt高中句型全总结.doc高中句型全总结.doc理论力学知识点总结pdf 帐处理： 为防止汇总前后各项明细数据发生变化导致汇总数据不正确，应先将各类明细表打上汇总日 期将其锁定，然后根据汇总日期产生汇总数据再保存到数据库中 (1).将表 ZY_FYMX 打上汇总日期 (2).将表 ZY_TBKK 打上汇总日期 (3).将表 ZY_ZYJS 打上汇总日期 (4).将表 ZY_JZXX 打上汇总日期 (5).产生结帐汇总数据 wf_Create_hzjz() //**********************************************************************// // 项目编号：1.在院病人费用 2.预缴金 3.出院待结算 // 结算类型：1.中结 2.预结 3.再结 4.终结 5.出院 6.合并 9.退费 //**********************************************************************// <1>.取上期结存： IF 首次汇总 THEN sqjc[1,2,3] = 0 ELSE S