PACKAGE BODY: APPS.PA_DISTRIBUTION_LISTS_PKG

Source

1 PACKAGE BODY PA_DISTRIBUTION_LISTS_PKG AS
2  /* $Header: PATDSLHB.pls 120.1 2005/08/19 17:03:47 mwasowic noship $ */
3 procedure INSERT_ROW (
4   P_LIST_ID 		in OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
5   P_NAME 		in VARCHAR2,
6   P_DESCRIPTION 	in VARCHAR2,
7   P_RECORD_VERSION_NUMBER in NUMBER,
8   P_CREATED_BY 		in NUMBER,
9   P_CREATION_DATE 	in DATE,
10   P_LAST_UPDATED_BY 	in NUMBER,
11   P_LAST_UPDATE_DATE 	in DATE,
12   P_LAST_UPDATE_LOGIN 	in NUMBER
13 ) IS
14      CURSOR  c1 IS
15       SELECT rowid
16         FROM   PA_DISTRIBUTION_LISTS
17         WHERE  list_id = p_list_id;
18   l_row_id  ROWID;
19  BEGIN
20     Insert into PA_DISTRIBUTION_LISTS (
21       LIST_ID             ,
22       NAME                ,
23       DESCRIPTION         ,
24       RECORD_VERSION_NUMBER ,
25       CREATED_BY          ,
26       CREATION_DATE       ,
27       LAST_UPDATED_BY     ,
28       LAST_UPDATE_DATE    ,
29       LAST_UPDATE_LOGIN
30   )
31   VALUES
32   (
33      PA_DISTRIBUTION_LISTS_S.NEXTVAL,
34      NVL(P_NAME, PA_DISTRIBUTION_LISTS_S.CURRVAL) ,
35      P_DESCRIPTION         ,
36      1 			   ,
37      P_CREATED_BY          ,
38      P_CREATION_DATE       ,
39      P_LAST_UPDATED_BY     ,
40      P_LAST_UPDATE_DATE    ,
41      P_LAST_UPDATE_LOGIN
42    ) returning list_id INTO p_list_id;
43  OPEN c1;
44   FETCH c1 INTO l_row_id;
45   IF (c1%NOTFOUND) THEN
46     CLOSE c1;
47     RAISE NO_DATA_FOUND;
48   END IF;
49   CLOSE c1;
50 
51 EXCEPTION
52     WHEN OTHERS THEN -- catch the exceptions here
53         RAISE;
54 END INSERT_ROW;
55 
56 
57 procedure UPDATE_ROW (
58   P_LIST_ID             in NUMBER,
59   P_NAME                in VARCHAR2,
60   P_DESCRIPTION         in VARCHAR2,
61   P_RECORD_VERSION_NUMBER in NUMBER,
62   P_LAST_UPDATED_BY     in NUMBER,
63   P_LAST_UPDATE_DATE    in DATE,
64   P_LAST_UPDATE_LOGIN   in NUMBER
65 ) IS
66  BEGIN
67    UPDATE PA_DISTRIBUTION_LISTS
68    SET
69       NAME = P_NAME               ,
70       DESCRIPTION = P_DESCRIPTION        ,
71       RECORD_VERSION_NUMBER = RECORD_VERSION_NUMBER + 1,
72       LAST_UPDATED_BY       = P_LAST_UPDATED_BY,
73       LAST_UPDATE_DATE      = P_LAST_UPDATE_DATE,
74       LAST_UPDATE_LOGIN     = P_LAST_UPDATE_LOGIN
75    WHERE LIST_ID = P_LIST_ID;
76  EXCEPTION
77     WHEN OTHERS THEN -- catch the exceptins here
78         RAISE;
79  END UPDATE_ROW;
80 
81 
82 procedure DELETE_ROW (
83 		      P_LIST_ID in NUMBER )
84  IS
85  BEGIN
86    DELETE FROM PA_DISTRIBUTION_LISTS
87    WHERE LIST_ID = P_LIST_ID;
88 
89  EXCEPTION
90     WHEN OTHERS THEN
91         RAISE;
92  END DELETE_ROW;
93 
94 END  PA_DISTRIBUTION_LISTS_PKG;