PACKAGE BODY: APPS.AD_PA_CREATE_ADVISOR_CRITERIA

Source

1 package body ad_pa_create_advisor_criteria as
2 /* $Header: adpaincb.pls 115.3 2002/10/14 22:25:23 kksingh ship $*/
3 
4 Procedure insert_criteria(p_advisor_criteria_id           varchar2,
5                 p_advisor_criteria_description            varchar2,
6                 p_pre_seeded_flag                         varchar2,
7                 p_last_updated_by                         number,
8                 p_created_by                              number)
9 IS
10   l_uid number;
11 BEGIN
12   l_uid := p_last_updated_by;
13 
14   if l_uid is null then
15     l_uid := 1;
16   end if;
17 
18   begin
19     insert into AD_PA_CRITERIA
20       (ADVISOR_CRITERIA_ID,ADVISOR_CRITERIA_DESCRIPTION,PRE_SEEDED_FLAG,
21        CREATION_DATE,LAST_UPDATED_BY,CREATED_BY,LAST_UPDATE_DATE)
22     values (p_advisor_criteria_id,p_advisor_criteria_description,
23             p_pre_seeded_flag,sysdate,p_last_updated_by,p_created_by,sysdate);
24 
25   exception
26     when dup_val_on_index then
27       raise_application_error(-20001,
28                    'Attempting to insert a duplicate record '||
29                    'into AD_PA_ADVISOR_CRITERIA advisor_criteria_id =  '||
30                    p_advisor_criteria_id || ' and pre_seeded_flag '||
31                    p_pre_seeded_flag);
32   end;
33 
34 END insert_criteria;
35 
36 
37 Procedure insert_criteria_prod(p_advisor_criteria_id       varchar2,
38                 p_product_abbreviation                     varchar2,
39                 p_product_family_abbreviation              varchar2,
40                 p_require_family_pack                      varchar2,
41                 p_require_mini_pack                        varchar2,
42                 p_require_high_priority                    varchar2,
43                 p_last_updated_by                          number,
44                 p_created_by                               number)
45 IS
46   l_uid number;
47 BEGIN
48   l_uid := p_last_updated_by;
49 
50   if l_uid is null then
51     l_uid := 1;
52   end if;
53 
54   begin
55     insert into AD_PA_CRITERIA_PRODUCTS
56       (ADVISOR_CRITERIA_ID,PRODUCT_ABBREVIATION,PRODUCT_FAMILY_ABBREVIATION,
57        REQUIRE_FAMILY_PACK,REQUIRE_MINI_PACK,REQUIRE_HIGH_PRIORITY,
58        CREATION_DATE,LAST_UPDATED_BY,CREATED_BY,LAST_UPDATE_DATE)
59      values (p_advisor_criteria_id,p_product_abbreviation,
60              p_product_family_abbreviation,p_require_family_pack,
61              p_require_mini_pack,p_require_high_priority,sysdate,
62              p_last_updated_by,p_created_by,sysdate);
63 
64   exception
65     when dup_val_on_index then
66       raise_application_error(-20001,
67         'Attempting to insert a duplicate record '||
68         'into AD_PA_ADVISOR_CRITERIA advisor_criteria_id =  '||
69         p_advisor_criteria_id || ' and product_abbreviation '||
70         p_product_abbreviation);
71   END;
72 END insert_criteria_prod;
73 
74 End ad_pa_create_advisor_criteria;