PACKAGE BODY: APPS.AD_PA_DELETE_CRITERIASET

Source

1 package body ad_pa_delete_criteriaset as
2 /* $Header: adpadlcb.pls 115.2 2002/10/11 21:52:31 kksingh ship $ */
3 
4 Procedure delete_criteriaset(p_advisor_criteria_id  varchar2 )
5 IS
6 
7 BEGIN
8 
9   begin
10     DELETE from AD_PA_CRITERIA_PRODUCTS
11       where advisor_criteria_id = p_advisor_criteria_id;
12 
13     DELETE from AD_PA_CRITERIA
14       where advisor_criteria_id = p_advisor_criteria_id;
15 
16     exception
17       when no_data_found then
18        RETURN ;
19   end ;
20 END delete_criteriaset;
21 
22 END ad_pa_delete_criteriaset;