医学影像信息系统医学信息系统Word下载.docx
- 文档编号:15210840
- 上传时间:2022-10-28
- 格式:DOCX
- 页数:16
- 大小:16.26KB
医学影像信息系统医学信息系统Word下载.docx
《医学影像信息系统医学信息系统Word下载.docx》由会员分享,可在线阅读,更多相关《医学影像信息系统医学信息系统Word下载.docx(16页珍藏版)》请在冰豆网上搜索。
number)
begin
selecth_patient_typeintoh_pay_type
frombjtu_h_patient
whereh_patient_id=:
O.h_patient_id;
UPDATEbjtu_h_in_stat1
SETh_reg_num=h_reg_num-1
WHERE(in_stat_day=:
O.in_hos_date)
AND(h_patient_type=h_pay_type)and
(h_dep_code=:
O.h_dep_code);
end;
【bjtu_h_reg_info_ins_new】插入触发器
CREATEORREPLACETRIGGERbjtu_h_reg_info_ins
AFTERINSERTON"
declare
frombjtu_h_patient
whereh_patient_id=:
N.h_patient_id;
SETh_reg_num=h_reg_num+1(药品分装的时候set字段=值,不加新值)
N.in_hos_date)
AND(h_dep_code=:
N.h_dep_code)and
(h_patient_type=h_pay_type);
ifSQL%NOTFOUNDthen
INSERTintobjtu_h_in_stat1
(in_stat_day,h_patient_type,h_dep_code,h_reg_num)
VALUES
(:
N.in_hos_date,h_pay_type,:
N.h_dep_code,1);
endif;
end;
[bjtu_h_reg_info_upd_new]修改触发器
CREATEORREPLACETRIGGERbjtu_h_reg_info_upd
AFTERUPDATEOF"
IN_HOS_DATE"
"
H_DEP_CODE"
ON
"
Begin
selecth_patient_typeintoh_pay_typefrombjtu_h_patientwhereh_patient_id=:
O.in_hos_date)and
(h_patient_type=h_pay_type)and
SETh_reg_num=h_reg_num+1
End;
【bjtu_c_fee_detail_ins】
CREATEORREPLACETRIGGERbjtu_c_fee_detail_ins
AFTERINSERTON"
BJTU_C_FEE_DETAIL"
REFERENCINGOLDASONEWASN
FOREACHROW
begin
UPDATEbjtu_c_patient_acc_fee
SETfee_num=fee_num+:
N.fee_num
WHERE(bjtu_c_patient_acc_fee.c_patient_id=:
N.c_patient_id)
AND(bjtu_c_patient_acc_fee.c_patient_seq_id=:
N.c_patient_seq_id)
AND(bjtu_c_patient_acc_fee.c_reg_date=:
N.c_reg_date)
AND(bjtu_c_patient_acc_fee.account_type=:
N.account_type);
INSERTintobjtu_c_patient_acc_fee
(c_patient_id,
c_patient_seq_id,
c_reg_date,
account_type,
fee_num)
N.c_patient_id,
:
N.c_patient_seq_id,
N.c_reg_date,
N.account_type,
N.fee_num);
【bjtu_c_fee_detail_del】
CREATEORREPLACETRIGGERbjtu_c_fee_detail_del
AFTERDELETEON"
SETfee_num=fee_num-:
O.fee_num
WHERE(bjtu_c_patient_acc_fee.c_patient_id=:
O.c_patient_id)
AND(bjtu_c_patient_acc_fee.c_patient_seq_id=:
O.c_patient_seq_id)
O.c_reg_date)
O.account_type);
【bjtu_c_fee_detail_upd】
CREATEORREPLACETRIGGERbjtu_c_fee_detail_upd
AFTERUPDATEOF"
ACCOUNT_TYPE"
"
FEE_NUM"
ON"
(c_patient_id,c_patient_seq_id,c_reg_date,account_type,fee_num)
【bjtu_c_patient_del】
CREATEORREPLACETRIGGERbjtu_c_patient_del
BJTU_C_PATIENT"
begin
UPDATEbjtu_c_patient_type
SETc_patient_type_num=c_patient_type_num-1
WHEREbjtu_c_patient_type.c_patient_type=:
O.c_patient_type;
【bjtu_c_patient_ins】
CREATEORREPLACETRIGGERbjtu_c_patient_ins
BJTU_C_PA
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 医学影像 信息系统 医学