如果您无法下载资料，请参考说明：
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_
