预览加载中，请您耐心等待几秒...

医学影像信息系统：医学信息系统.docx

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共12页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

PAGE\*MERGEFORMAT12【bjtu_h_reg_info_del_new】删除触发器CREATEORREPLACETRIGGERbjtu_h_reg_info_delAFTERDELETEON"HFAN"."BJTU_H_REG_INFO"REFERENCINGOLDASONEWASNFOREACHROWdeclare（声明一个变量）h_pay_typevarchar2(3);（字符型）（数字型：number）beginselecth_patient_typeintoh_pay_typefrombjtu_h_patientwhereh_patient_id=:O.h_patient_id;UPDATEbjtu_h_in_stat1SETh_reg_num=h_reg_num-1WHERE(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_insAFTERINSERTON"HFAN"."BJTU_H_REG_INFO"REFERENCINGOLDASONEWASNFOREACHROWdeclareh_pay_typevarchar2(3);beginselecth_patient_typeintoh_pay_typefrombjtu_h_patientwhereh_patient_id=:N.h_patient_id;UPDATEbjtu_h_in_stat1SETh_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%NOTFOUNDthenINSERTintobjtu_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_updAFTERUPDATEOF"IN_HOS_DATE","H_DEP_CODE"ON"HFAN"."BJTU_H_REG_INFO"REFERENCINGOLDASONEWASNFOREACHROWdeclareh_pay_typevarchar2(3);Beginselecth_patient_typeintoh_pay_typefrombjtu_h_patientwhereh_patient_id=:O.h_patient_id;UPDATEbjtu_h_in_stat1SETh_reg_num=h_reg_num-1WHERE(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_stat1SETh_reg_num=h_reg_num+1WHERE(in_stat_day=:N.in_hos_date)AND(h_dep_code=:N.h_dep_code)and(h_patient_type=h_pay_type);ifSQL%NOTFOUNDthenINSERTintobjtu_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_insAFTERINSERTON"HFAN"."BJTU_