医学影像信息系统医学信息系统.docx
- 文档编号:2293266
- 上传时间:2022-10-28
- 格式:DOCX
- 页数:16
- 大小:16.26KB
医学影像信息系统医学信息系统.docx
《医学影像信息系统医学信息系统.docx》由会员分享,可在线阅读,更多相关《医学影像信息系统医学信息系统.docx(16页珍藏版)》请在冰豆网上搜索。
医学影像信息系统医学信息系统
【bjtu_h_reg_info_del_new】删除触发器
CREATEORREPLACETRIGGERbjtu_h_reg_info_del
AFTERDELETEON"HFAN"."BJTU_H_REG_INFO"
REFERENCINGOLDASONEWASN
FOREACHROW
declare(声明一个变量)
h_pay_typevarchar2(3);(字符型)(数字型:
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"HFAN"."BJTU_H_REG_INFO"
REFERENCINGOLDASONEWASN
FOREACHROW
declare
h_pay_typevarchar2(3);
begin
selecth_patient_typeintoh_pay_type
frombjtu_h_patient
whereh_patient_id=:
N.h_patient_id;
UPDATEbjtu_h_in_stat1
SETh_reg_num=h_reg_num+1(药品分装的时候set字段=值,不加新值)
WHERE(in_stat_day=:
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
"HFAN"."BJTU_H_REG_INFO"
REFERENCINGOLDASONEWASN
FOREACHROW
declare
h_pay_typevarchar2(3);
Begin
selecth_patient_typeintoh_pay_typefrombjtu_h_patientwhereh_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);
selecth_patient_typeintoh_pay_typefrombjtu_h_patientwhereh_patient_id=:
N.h_patient_id;
UPDATEbjtu_h_in_stat1
SETh_reg_num=h_reg_num+1
WHERE(in_stat_day=:
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_c_fee_detail_ins】
CREATEORREPLACETRIGGERbjtu_c_fee_detail_ins
AFTERINSERTON"HFAN"."BJTU_C_FEE_DETAIL"
REFERENCINGOLDASONEWASN
FOREACHROW
begin
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);
ifSQL%NOTFOUNDthen
INSERTintobjtu_c_patient_acc_fee
(c_patient_id,
c_patient_seq_id,
c_reg_date,
account_type,
fee_num)
VALUES
(:
N.c_patient_id,
:
N.c_patient_seq_id,
:
N.c_reg_date,
:
N.account_type,
:
N.fee_num);
endif;
end;
end;
【bjtu_c_fee_detail_del】
CREATEORREPLACETRIGGERbjtu_c_fee_detail_del
AFTERDELETEON"HFAN"."BJTU_C_FEE_DETAIL"
REFERENCINGOLDASONEWASN
FOREACHROW
begin
begin
UPDATEbjtu_c_patient_acc_fee
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)
AND(bjtu_c_patient_acc_fee.c_reg_date=:
O.c_reg_date)
AND(bjtu_c_patient_acc_fee.account_type=:
O.account_type);
end;
end;
【bjtu_c_fee_detail_upd】
CREATEORREPLACETRIGGERbjtu_c_fee_detail_upd
AFTERUPDATEOF"ACCOUNT_TYPE","FEE_NUM"ON"HFAN"."BJTU_C_FEE_DETAIL"
REFERENCINGOLDASONEWASN
FOREACHROW
begin
begin
UPDATEbjtu_c_patient_acc_fee
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)
AND(bjtu_c_patient_acc_fee.c_reg_date=:
O.c_reg_date)
AND(bjtu_c_patient_acc_fee.account_type=:
O.account_type);
end;
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);
ifSQL%NOTFOUNDthen
INSERTintobjtu_c_patient_acc_fee
(c_patient_id,c_patient_seq_id,c_reg_date,account_type,fee_num)
VALUES
(:
N.c_patient_id,
:
N.c_patient_seq_id,
:
N.c_reg_date,
:
N.account_type,
:
N.fee_num);
endif;
end;
end;
【bjtu_c_patient_del】
CREATEORREPLACETRIGGERbjtu_c_patient_del
AFTERDELETEON"HFAN"."BJTU_C_PATIENT"
REFERENCINGOLDASONEWASN
FOREACHROW
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;
end;
【bjtu_c_patient_ins】
CREATEORREPLACETRIGGERbjtu_c_patient_ins
AFTERINSERTON"HFAN"."BJTU_C_PA
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 医学影像 信息系统 医学
![提示](https://static.bdocx.com/images/bang_tan.gif)