PACKAGE BODY: APPS.AD_PA_EDIT_ADVISOR_CRITERIA

Source

1 package body ad_pa_edit_advisor_criteria as
2 /* $Header: adpaedcb.pls 115.2 2004/06/01 10:40:37 sallamse ship $*/
3 
4 Procedure  edit_criteriaSet(p_advisor_criteria_id      varchar2,
5               p_product_abbreviation                   varchar2,
6               p_require_family_pack                    varchar2,
7               p_require_mini_pack                      varchar2,
8               p_require_high_priority                  varchar2)
9 
10 IS
11   l_last_update_date date;
12   l_lub number;
13   cursor ad_pa_cri_prod is
14     select product_abbreviation,product_family_abbreviation,
15            require_family_pack,require_mini_pack,require_high_priority
16     from ad_pa_criteria_products
17     where advisor_criteria_id =p_advisor_criteria_id
18     and   product_abbreviation = p_product_abbreviation;
19 BEGIN
20   l_last_update_date  := sysdate;
21   for PRODUCT_REC in ad_pa_cri_prod loop
22     begin
23       if PRODUCT_REC.require_family_pack <> p_require_family_pack or
24          PRODUCT_REC.require_mini_pack  <> p_require_family_pack or
25          PRODUCT_REC.require_high_priority <> p_require_high_priority then
26 
27 	 update  AD_PA_CRITERIA_products
28 	 set
29 	   require_family_pack  =p_require_family_pack,
30 	   require_mini_pack    =p_require_mini_pack,
31 	   REQUIRE_HIGH_PRIORITY=p_require_high_priority,
32 	   last_update_date = l_last_update_date
33 	 where advisor_criteria_id = p_advisor_criteria_id
34 	 and   product_abbreviation = p_product_abbreviation;
35 
36       end if;
37 
38     exception
39       when dup_val_on_index then
40         raise_application_error(-20001,
41           'Attempting to insert a duplicate record '||
42           'into AD_PA_ADVISOR_CRITERIA_PRODUCT advisor_criteria_id =  '||
43           p_advisor_criteria_id || ' and product_abbreviation '||
44           p_product_abbreviation);
45     end;
46   end loop;
47 
48 end edit_criteriaSet;
49 
50 End ad_pa_edit_advisor_criteria;