PACKAGE BODY: APPS.WSMPCPSB

Source

1 PACKAGE BODY WSMPCPSB as
2 /* $Header: WSMCPSBB.pls 120.2 2006/03/27 20:41:11 mprathap noship $ */
3 
4   PROCEDURE Check_Unique(X_rowid               VARCHAR2,
5              X_co_product_group_id     NUMBER,
6                          X_co_product_id           NUMBER,
7                          X_substitute_coprod_id    NUMBER) IS
8 
9   x1_dummy  NUMBER; --abedajna
10   dummy     NUMBER;
11 
12   dupl_sub_coprod_error   EXCEPTION;
13 
14   BEGIN
15 
16 -- commented out by abedajna on 10/12/00 for perf. tuning
17 
18 /*  SELECT 1 INTO dummy
19 **  FROM   DUAL
20 **  WHERE NOT EXISTS
21 **    ( SELECT 1
22 **    FROM wsm_co_prod_substitutes
23 **    WHERE co_product_group_id         = X_co_product_group_id
24 **    AND   co_product_id               = X_co_product_id
25 **    AND   substitute_co_product_id    = X_substitute_coprod_id
26 **    AND  ((X_Rowid IS NULL) OR (ROWID <> X_ROWID)));
27 **
28 **  EXCEPTION
29 **  WHEN NO_DATA_FOUND THEN
30 **      fnd_message.set_name('WSM','WSM_DUPLICATE_SUB_COPROD');
31 **      app_exception.raise_exception;
32 */
33 
34 -- modification begin for perf. tuning.. abedajna 10/12/00
35 
36   SELECT 1 INTO x1_dummy
37   FROM wsm_co_prod_substitutes
38   WHERE co_product_group_id         = X_co_product_group_id
39   AND   co_product_id               = X_co_product_id
40   AND   substitute_co_product_id    = X_substitute_coprod_id
41   AND  ((X_Rowid IS NULL) OR (ROWID <> X_ROWID));
42 
43   IF x1_dummy <> 0 THEN
44     RAISE dupl_sub_coprod_error;
45   END IF;
46 
47 
48   EXCEPTION
49 
50   WHEN dupl_sub_coprod_error THEN
51       fnd_message.set_name('WSM','WSM_DUPLICATE_SUB_COPROD');
52       app_exception.raise_exception;
53 
54 
55   WHEN TOO_MANY_ROWS THEN
56       fnd_message.set_name('WSM','WSM_DUPLICATE_SUB_COPROD');
57       app_exception.raise_exception;
58 
59 
60   WHEN NO_DATA_FOUND THEN
61     NULL;
62 
63 
64 -- modification end for perf. tuning.. abedajna 10/12/00
65 
66 
67   END Check_Unique;
68 
69 
70 PROCEDURE Delete_substitutes (x_co_product_group_id     IN  NUMBER,
71                               x_co_product_id           IN  NUMBER) IS
72 BEGIN
73 
74     DELETE FROM WSM_CO_PROD_SUBSTITUTES
75     WHERE  co_product_group_id      = x_co_product_group_id
76     AND    substitute_co_product_id = x_co_product_id;
77 
78 END Delete_Substitutes;
79 
80 END WSMPCPSB;