DROP PROCEDURE MRR.delete_risk_assessment;
CREATE OR REPLACE PROCEDURE MRR.delete_risk_assessment (
id IN NUMERIC
) IS
BEGIN
DELETE MRR.riskassessmentvalue
WHERE risktypedetail_id IN
(
SELECT MRR.risktypedetail_id FROM risktypedetail
WHERE riskassessment_id = id
);

SAVEPOINT point1;

DELETE MRR.risktypedetail
WHERE riskassessment_id = id;

SAVEPOINT point2;

DELETE MRR.riskassessment
WHERE riskassessment_id = id;

EXCEPTION
WHEN OTHERS THEN ---若出现异常 执行回滚
ROLLBACK TO SAVEPOINT point1;
END;
/
GRANT EXECUTE ON MRR.delete_risk_assessment TO DMM_KCMRLRSK_ROLE;
/
本文出自 “坠落凡间的天使” 博客