东华理工大学大学毕业设计 第五章 详细设计与实现
lb_Success = THIS.TRIGGER EVENT ue_zyjscl()
IF MessageBox(\提示信息\确定出院预结吗!\= 2 gf_Begin_Transaction(sqlca) INSERT
(:ll_jlxh,:ldt_sysdate,-
INTO
CASE 2 // 出院预结
THEN RETURN
ZY_RCTJ(JLXH,CZRQ,CZLX,ZYH,BRKS,YYRS,XYRS,BQPB) VALUES //hgf 5,:istr_jsxx.jsbr.ZYH,:istr_jsxx.jsbr.brks,:ll_czqrs,:ll_czqrs,0);
IF sqlca.SQLCode <> 0 THEN
ls_errtext = sqlca.SQLErrText //错误信息 gf_rollback_transaction(sqlca)
MessageBox(\提示信息\人数统计表数据保存失败，请检查数gf_inserterrlog(0,ls_errtext,'RETURN
结
算
管
理
-出
院
预
结
据!\
','w_zy_jsgl','cb_jscl.clicked',0)
END IF
lb_Success = wf_jscl_cyyj(istr_jsxx) // 出院预结
IF lb_Success THEN
gf_Commit_Transaction(sqlca)
MessageBox(\提示信息\出院预结成功!\
ls_errtext = sqlca.SQLErrText //错误信息 gf_rollback_transaction(sqlca)
MessageBox(\提示信息\数据保存错误，出院预结失败，请稍侯再
ELSE
试!\
END IF
IF MessageBox(\提示信息\确定发票作废吗!\= 2
gf_Begin_Transaction(sqlca) INSERT
INTO
CASE 11 , IS > 12 // 发票作废
THEN RETURN
ZY_RCTJ(JLXH,CZRQ,CZLX,ZYH,BRKS,YYRS,XYRS,BQPB) VALUES //hgf
- 31 -
东华理工大学大学毕业设计 第五章 详细设计与实现
+ 1,0); sqlnh;
(:ll_jlxh,:ldt_sysdate,2,:istr_jsxx.jsbr.ZYH,:istr_jsxx.jsbr.brks,:ll_czqrs,:ll_czqrs
ls_errtext = sqlca.SQLErrText //错误信息 gf_rollback_transaction(sqlca)
MessageBox(\提示信息\人数统计表数据保存失败，请检查数
IF sqlca.SQLCode <> 0 THEN
据!\
gf_inserterrlog(0,ls_errtext,'结算管理-出院预结','w_zy_jsgl','cb_jscl.clicked',0)
RETURN END IF
lb_Success = wf_jscl_fpzf(istr_jsxx) // 发票作废
IF lb_Success THEN
string ls_zyh int li_nhzt
IF gunh.of_ybpb(\
ls_zyh = string(istr_jsxx.jsbr.zyh)
select NHZT into :li_nhzt from t_con1 where zyh1 = :ls_zyh using if li_nhzt <> 0 then
messagebox(\农合提示\该病人已在农合系统中进行过结return
算,不能取消结算!\
end if
update T_CON1 set fph = null, fpsj = null, Z_date2 = null where if sqlnh.sqlcode <> 0 then
gf_Rollback_Transaction(sqlca)
messagebox(\农合提示\更新该病人在农合接口表return
zyh1 = :ls_zyh using sqlnh;
T_CON1数据失败!\
end if
- 32 -
东华理工大学大学毕业设计 第五章 详细设计与实现
END IF
IF gunh_ff.of_ybpb(\
update zy_brry set drpb = 1 where zyh = :istr_jsxx.jsbr.zyh; if sqlca.sqlcode <> 0 then
gf_Rollback_Transaction(sqlca)
messagebox(\农合提示\更新zy_brry表字段数据失败!\+ return
sqlnh.sqlerrtext)
end if
// 预处理(一般用于医保接口)
IF NOT THIS.TRIGGER EVENT ue_Pre_Save() THEN
gf_rollback_transaction(sqlca)
MessageBox(\提示信息\数据保存错误，发票作废失败，请稍RETURN
侯再试!\
END IF
gf_Commit_Transaction(sqlca)
IF NOT THIS.TRIGGER EVENT ue_Aft_Save() THEN GOTO Process_End string zybh
IF uybjk.of_ybpb(istr_jsxx.jsbr.brxz) THEN
IF istr_jsxx.jslx > 11 THEN
ll_Count = 0
SELECT COUNT(*) INTO :ll_Count FROM ZY_CWSZ
Where
BRCH
=
:istr_jsxx.jsbr.BRCH
AND
ZYH
select
ybzyh
into
:zybh
from
zy_brry
where
zyh
//删除已经上传的数据记录和预缴款
= :istr_jsxx.jsbr.zyh;
delete tb_zydab where zybh = :zybh using sqlyb; delete tb_yjsfb where zybh = :zybh using sqlyb;
update zy_fymx set scbz = 0 where zyh = :istr_jsxx.jsbr.zyh; update zy_tbkk set scbz = 0 where zyh = :istr_jsxx.jsbr.zyh;
end if
= :istr_jsxx.jsbr.ZYH ;
IF ll_Count = 0 THEN ls_Message += \当前病人床位没有被
恢复，若病人回到病区需重新分配床位!\
- 33 -
东华理工大学大学毕业设计 第五章 详细设计与实现
IF istr_jsxx.jslx = 16 THEN
ll_Count = 0
SELECT COUNT(*) INTO :ll_Count FROM ZY_CWSZ
Where BRCH = :istr_jsxx.hbbr.BRCH AND ZYH
= :istr_jsxx.hbbr.ZYH ;
IF ll_Count = 0 THEN ls_Message += \合并病人床位没
有被恢复，若病人回到病区需重新分配床位!\
END IF END IF
MessageBox(\提示信息\发票作废成功!\ls_errtext = sqlca.SQLErrText //错误信息 gf_rollback_transaction(sqlca)
MessageBox(\提示信息\数据保存错误，发票作废失败，请稍侯再
ELSE
试!\
END IF
IF MessageBox(\提示信息\确定取消预结吗!\= 2
gf_Begin_Transaction(sqlca) INSERT
(:ll_jlxh,:ldt_sysdate,
ls_errtext = sqlca.SQLErrText //错误信息 gf_rollback_transaction(sqlca)
MessageBox(\提示信息\人数统计表数据保存失败，请检查数gf_inserterrlog(0,ls_errtext,'RETURN
结
算
管
理
-出
院
预
结INTO
CASE 12 // 取消预结
THEN RETURN
ZY_RCTJ(JLXH,CZRQ,CZLX,ZYH,BRKS,YYRS,XYRS,BQPB) VALUES //hgf 5,:istr_jsxx.jsbr.ZYH,:istr_jsxx.jsbr.brks,:ll_czqrs,:ll_czqrs,0);
IF sqlca.SQLCode <> 0 THEN
据!\
','w_zy_jsgl','cb_jscl.clicked',0)
END IF
- 34 -
东华理工大学大学毕业设计 第五章 详细设计与实现
lb_Success = wf_jscl_qxyj(istr_jsxx) // 取消预结 IF lb_Success THEN
gf_Commit_Transaction(sqlca)
MessageBox(\提示信息\取消预结成功!\ls_errtext = sqlca.SQLErrText //错误信息 gf_rollback_transaction(sqlca) gf_inserterrlog(0,ls_errtext,'
结
算
管
理
-取
消
预
结
ELSE
','w_zy_jsgl','cb_jscl.clicked',0)
MessageBox(\提示信息\数据保存错误，取消预结失败，请稍侯再
试!\
END IF
END CHOOSE Process_End: IF lb_Success THEN END IF
5.3.3 病人缴款管理的设计 功能：
缴款管理包括缴款录入和缴款查询两项子功能。对各病区、各科室病人的进行缴款录入和查询。选择“业务|缴款管理”子菜单。如图5-8所示。
ib_Adjusted = FALSE
istr_jsxx.jsbr.ZYH = 0 // 释放已结算病人，防止重复开锁
图5-8缴款处理图
后台主要代码设计
a．该窗口的open事件代码：
- 35 -
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库毕业设计定稿(8)在线全文阅读。
相关推荐：